TURBO PASCAL 



GraphixToolbox 

,— Dazzling Graphics and Painless Windows. 




* 





TURBO PASCAL 




• • 



Borland's No-Nonsense License Statement! 

This software is protected by both United States cop/right law and international treaty 
provisions. Therefore, you must treat this software just like a book, with the following single 
exception. Borland International authorizes you to make archival copies of the software for the 
sole purpose of backing-up our software and protecting your investment from loss. 

By saying, "just like a book," Borland means, for example, that this software may be used by any 
number of people and may be freely moved from one computer location to another, so long as 
there is no possibility of it being used at one location while it's being used at another. Just like a 
book that can't be read by two different people in two different places at the same time, neither 
can the software be used by two different people in two different places at the same time. 
(Unless, of course, Borland's copyright has been violated.) 

Borland International grants you (the licensed owner of Turbo Graphix Toolbox) the right to 
incorporate Graphix Toolbox routines into your programs. You may distribute your programs 
that contain Graphix Toolbox routines in executable form without restriction or fee, but you 
may not give away or sell any part of the actual Graphix Toolbox source code. You are not, of 
course, restricted from distributing your own source code. 

Sample programs included on the Turbo Graphix Toolbox disk demonstrate how to use the 
Graphix Toolbox. You may edit or modify them and incorporate them into programs that you 
write without restriction or fee. Use of sample programs is governed by the same conditions 
and restrictions as outlined in the first paragraph above. 

WARRANTY 

With respect to the physical diskette and physical documentation enclosed herein, Borland 
International. Inc. ("Borland") warrants the same to be free of defects in materials and 
workmanship for a period of 60 days from the date of purchase. In the event of notification 
within the warranty period of defects in material or workmanship, Borland will replace the 
defective diskette or documentation. If you need to return a product, call the Borland 
Customer Service Department to obtain a return authorization number. The remedy for 
breach of this warranty shall be limited to replacement and shall not encompass any other 
damages, including but not limited to loss of profit, and special, incidental, consequential, or 
other similar claims. 

Borland International, Inc. specifically disclaims all other warranties, expressed or implied, 
including but not limited to implied warranties of merchantability and fitness for a particular 
purpose with respect to defects in the diskette and documentation, and the program license 
granted herein in particular, and without limiting operation of the program license with respect 
to any particular application, use, or purpose. In no event shall Borland be liable for any loss of 
profit or any other commercial damage, including but not limited to special, incidental, 
consequential or other damages. 

GOVERNING LAW 

This statement shall be construed, interpreted, and governed by the laws of the state of 
California. 

Second Edition 
Printed in U.S.A. 
9 8 7 6 5 4 3 



Turbo Graphix Toolbox 



version 1 
Owner's Handbook 



Copyright ©1985 

All Rights Reserved 

Borland International, Inc. 

4585 Scotts Valley Drive 

Scotts Valley, CA 95066 

USA 



TABLE OF CONTENTS 



INTRODUCTION 1 

What Can You Do With the Graphix Toolbox? 1 

Structure of This Manual 4 

Typography 5 

The Distribution Diskette 5 

Acknowledgements 6 

Chapter 1. A COMPUTER GRAPHICS PRIMER 7 

Pixels 7 

Screens 7 

Characters and Fonts 8 

Coordinate Systems 9 

Absolute Screen Coordinate System 10 

World Coordinate System 10 

Windows 11 

Clipping 12 

How to Use the Turbo Graphix Toolbox With Your Hardware 13 

The IBM PC and True Compatibles 14 

IBM Color Graphics Card 15 

Hercules Monochrome Graphics Card 15 

IBM Enhanced Graphics Adapter 15 

Heath/Zenith Z-1 00 Computer 15 

Chapter 2. GETTING STARTED 17 

Including Turbo Graphix Routines in Your Program 17 

Drawing Points 18 

Drawing a Single Point 19 

Drawing a Cluster of Points 20 

Drawing Points Using a World Coordinate System 21 

Erasing a Point 22 

Summary of Point Routines 22 

Drawing Lines 23 

Drawing a Single Line 23 

Drawing a "Walking Line" 24 

Summary of Line-Drawing Routines 26 

Drawing Squares 26 

Summary of Square-Drawing Routines 27 

Drawing Circles 27 

Summary of Related Routines 29 



TABLE OF CONTENTS 



Text 29 

Displaying Machine-Dependent Text 30 

Displaying 4x6-Pixel Text 32 

Summary of Text-Drawing Routines 34 

Windows 34 

Defining a Window 34 

Displaying a Drawing in a Window 37 

Moving Windows 39 

Another Use for Windows: the Flow Chart 43 

Summary of Window Routines 47 

Pie and Bar Charts 48 

Pie Charts 49 

Bar Charts 53 

Summary of Pie and Bar Chart Routines 58 

Plotting Curves 59 

A Simple Example: Plotting a Sine Curve 59 

The DrawAxis Procedure 62 

Drawing a Sine Curve with Axes 64 

Polygon Modification Routines 66 

Finding a World to Fit a Polygon 69 

Solving Curve-Fitting Problems 73 

Fitting a Curve with the Spline Procedure 73 

Modeling a Curve with the Bezier Procedure 76 

Summary of Polygon/Curve Routines 80 

Screens 80 

Saving and Loading Screens 80 

Printing Screens 85 

Chapter 3. TECHNICAL REFERENCE 91 

Turbo Graphix Files 91 

Basic System Files 91 

Supplemental System Files 92 

High-Level Command Files 92 

A Sample Turbo Graphix Toolbox Program 94 

Constant and Type Definitions 94 

AspectFactor 95 

BackgroundArray 96 

CharFile 96 

ConOutPtr 96 

HardwareGrafBase 96 

HeaderSizeGIb 96 

IVStepGIb 97 

MaxBackground 97 

MaxForeground 97 



Turbo Graphix Toolbox Owner's Handbook 



MaxPiesGIb 98 

MaxPlotGIb 98 

MaxWindowsGIb 98 

MaxWorldsGIb 98 

MinBackground 99 

MinForeground 99 

PieArray 99 

PlotArray 100 

RamScreenGIb 100 

ScreenSizeGIb 101 

StringSizeGIb 101 

WrkString 101 

XMaxGIb 102 

XScreenMaxGIb 102 

YMaxGIb 102 

Quick Reference Guide to Turbo Graphix Routines 1 03 

Procedures and Functions 107 

BaseAddress 108 

Bezier 109 

ClearScreen 112 

ClearWindowStack 113 

Clip 114 

Clipping 115 

CopyScreen 116 

CopyWindow 117 

DC 118 

DefineHeader 119 

DefineTextWindow 120 

DefineWindow 122 

DefineWorld 123 

DisplayChar 124 

DP 125 

DrawAscii 126 

DrawAxis 127 

DrawBorder : 129 

DrawCartPie 130 

DrawCircle 132 

DrawCircleDirect 133 

DrawCircleSegment 134 

DrawCross 136 

DrawCrossDiag 137 

DrawDiamond 138 

DrawHistogram 139 

DrawLine 141 



TABLE OF CONTENTS Hi 



DrawLineClipped 142 

DrawPoint 143 

DrawPolarPie 144 

DrawPolygon 146 

DrawSquare 149 

DrawSquareC 150 

DrawStar 151 

DrawStraight 152 

DrawText 153 

DrawTextW 155 

DrawWye 156 

EnterGraphic 157 

Error 158 

FindWorld 159 

GetAspect 160 

GetColor 161 

GetErrorCode 162 

GetLineStyle 163 

GetScreen 164 

GetScreenAspect 165 

GetVStep 166 

GetWindow 167 

GotoXY 168 

GotoXYTurbo 169 

HardCopy 170 

HardwarePresent 171 

Hatch 172 

InitGraphic 173 

InvertScreen 175 

InvertWindow 176 

LeaveGraphic 177 

LoadScreen 178 

LoadWindow 179 

LoadWindowStack 180 

MoveHor 181 

MoveVer 182 

PD 183 

PointDrawn 184 

RedefineWindow 185 

RemoveHeader 186 

ResetWindowStack 187 

ResetWindows 188 

ResetWorlds 189 

RestoreWindow 190 

RotatePolygon 191 



iv Turbo Graphix Toolbox Owner's Handbook 



RotatePolygonAbout 192 

SaveScreen 193 

SaveWindow 194 

SaveWindowStack 195 

ScalePolygon 196 

SelectScreen 197 

SelectWindow 198 

SelectWorld 199 

SetAspect 200 

SetBackground 201 

SetBackground8 202 

SetBackgroundColor 203 

SetBreakOff 204 

SetBreakOn 205 

SetClippingOff 206 

SetClippingOn 207 

SetColorBlack 208 

SetColorWhite 209 

SetForegroundColor 210 

SetHeaderOff 211 

SetHeaderOn 212 

SetHeaderToBottom 213 

SetHeaderToTop 214 

SetLineStyle 215 

SetMessageOff 216 

SetMessageOn 217 

SetScreenAspect 218 

SetVStep 219 

SetWindowModeOff 220 

SetWindowModeOn 221 

Spline 222 

StoreWindow 224 

SwapScreen 226 

TextDown 227 

TextLeft 228 

TextRight 229 

TextUp 230 

TranslatePolygon 231 

WindowMode 232 

WindowSize 233 

WindowX 234 

WindowY 235 



TABLE OF CONTENTS 



Appendix A. HARDWARE CONFIGURATIONS AND 

COMPATIBILITY PROBLEMS 237 

The IBM Color Graphics Card 237 

Color 238 

Text 239 

The Hercules Monochrome Graphics Card 239 

Color 240 

Text 240 

Special Notes 240 

The Zenith Color Graphics Card 241 

Color 242 

Text 242 

Compatibility Issues 242 

Screen Size 243 

Text Placement 243 

Color 246 

Speed 246 

Premature Termination 247 

Appendix B. GLOSSARY 249 

INDEX 253 

LIST OF FIGURES 

0-1 A Sampler of Drawings Done with the Graphix Toolbox 2 

0-2 Stacked Windows 3 

0-3 Variations on a Pie Chart 3 

0-4 Two Curves Displayed with Coordinate Axes 4 

1-1 The Clipping Option Used To "Zoom In" on a Drawing 13 

2-1 A Single Point (DRWPNT. PAS Example) 19 

2-2 A Cluster of Points (DRWPNTS.PAS Example) 20 

2-3 Previous (DRWPNTS.PAS) Example on Hercules Screen 21 

2-4 A Line (DRWLIN.PAS Example) 24 

2-5 A Walking Line (DRWLINS.PAS Example) 25 

2-6 Squares (DRWSQ.PAS Example) 27 

2-7 Circles (DRWCIR.PAS Example) 29 

2-8 Machine-Dependent Text (DRWSTXT.PAS Example) 31 

2-9 4x6-Pixel Text (DRWATXT.PAS Example) 33 

2-10 A Window (SIMPWIND.PAS Example) 36 

2-11 Three Windows (MULTWIND.PAS Example) 39 

2-12 Moving a Window (MOVEWIND.PAS Example) 42 



vi Turbo Graphix Toolbox Owner's Handbook 



2-13 A Flow Chart (FLOWDEMO. PAS Example) 47 

2-14 A Pie Chart (ONEPIE.PAS Example) 53 

2-15 A Bar Chart (ONEHIST.PAS Example) 55 

2-1 6 Pie and Bar Chart Displaying Same Data 

(PIEHISTO.PAS Example) 58 

2-17 Plotting a Smooth Curve (ONEPOLY.PAS Example) 61 

2-18 Labeled Axes (ONEAXIS.PAS Example) 63 

2-19 A Smooth Curve and Coordinate Axes 

(POLYAXIS.PAS Example 65 

2-20 Finding a World for a Polygon (FINDWRLD.PAS Example) ... 72 
2-21 Finding a Smooth Curve with Cubic Splines 

(INTERP.PAS Example) 76 

2-22 Finding Points to Fit a Smooth Curve of 

Predetermined Shape (BEZIDEMO.PAS Example) 79 



TABLE OF CONTENTS vii 



INTRODUCTION 



Welcome to the Turbo Graphix Toolbox. The procedures and functions 
that make up this software package will expand your repertoire of Turbo 
Pascal programming tools. With the aid of the Graphix Toolbox, you can 
develop high-resolution monochrome graphics for IBM PC and PC- 
compatible computers (using either an IBM or Hercules graphics card), 
and the Zenith Z-1 00 computer. 

This manual makes extensive use of Turbo Pascal programming exam- 
ples; a good working knowledge of Turbo Pascal is assumed. If you 
need to brush up on your Pascal knowledge, refer to the Turbo Pascal 
manual, and/or the Turbo Tutor. 

What Can You Do With the Graphix Toolbox? 

The Turbo Graphix Toolbox is a versatile package, designed for both 
simple and complicated graphics applications. Simple procedures allow 
you to draw 

Points 

Lines 

Rectangles with optional shading 

Ellipses 

Circles 



High-level procedures let you create the more complex graphics that are 
often needed in business and scientific applications: 
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What Can You Do With the Graphix Toolbox? 

Labeled pie charts 

Bar charts with programmable shading 

A variety of curves, using different linestyles and with optional 
smoothing 

Curve fitting 

Line and solid modeling 

Labeled coordinate axes 

Polygons of any shape, with optional rotation or translation 

All your drawings can be displayed either on the full screen, or in win- 
dows that you define. You can also draw on a RAM (virtual) screen in 
memory, without display, and move the resulting images to the 
displayed screen when desired. 

Here are some examples of the kind of drawings you'll soon be able to 
generate with the Graphix Toolbox. 




Figure 0-1: A Sampler of Drawings Done with the Graphix Toolbox 
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Figure 0-2: Stacked Windows 




Figure 0-3: Variations on a Pie Chart 
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What Can You Do With the Graphix Toolbox? 




Figure 0-4: Two Curves Displayed with Coordinate Axes 



Structure of This Manual 

This manual is divided into five parts: 

• Chapter 1 provides an overview of the Turbo Graphix Toolbox. Basic 
graphics terms you need to know in order to use the toolbox are 
defined, and illustrations of some of the things you can draw are 
given. This chapter also talks about the different hardware 
configurations that can run the Turbo Graphix Toolbox. 

• Chapter 2 gets you started on using the Turbo Graphix Toolbox. Tur- 
bo Pascal examples for the most commonly used procedures are 
given, along with the resulting drawings. You'll also see how to define 
and manipulate windows, and save and print the graphic images you 
create. 

• Chapter 3 is the technical reference part of the manual. All the con- 
stants, types, procedures, and functions contained in the Turbo Gra- 
phix Toolbox are described, in alphabetical order, with parameters, 
function, restrictions, and examples. 

• Appendix A explains how to use the Turbo Graphix Toolbox with 
different hardware configurations. 

• Appendix B provides a glossary of terms used in the manual. 
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Typography 



The body of this manual is printed in normal typeface. Special charac- 
ters are used for the following special purposes: 

Alternate Alternate characters are used in program examples 
and procedure and function declarations. 

Italics Italics are used to emphasize certain concepts and termi- 

nology, such as predefined standard identifiers, parame- 
ters, and other syntax elements. 

Boldface Boldface type is used to mark reserved words, in the 
text as well as in program examples. 

Refer to the Turbo Pascal Reference Manual for a complete description 
of the syntax, special characters, and overall appearance of the Turbo 
Pascal language. 



The Distribution Diskette 

The Turbo Graphix Toolbox distribution diskette contains the following: 

• Installation and demonstration files 

• Files containing all the procedures and functions 

• All the commented program examples used in Chapter 2 

See the READ.ME! file for a complete list of all 53 files on your diskette. 
The distribution diskette is your only source for the Turbo Graphix Tool- 
box files. The first thing you should do upon receiving the diskette is to 
complete and mail the License Agreement at the front of this manual. 
You should then make a copy of the distribution diskette. Put the origi- 
nal diskette in a safe place, and use only the copy for doing your work. 
You should never use the distribution diskette for your work, since there 
is a charge for a replacement copy. 
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Chapter 1 

A COMPUTER GRAPHICS PRIMER 



Before you do any drawing with the Turbo Graphix Toolbox, you will 
need to understand the graphics and screen display terms used 
throughout this manual. Each of these concepts is described below, fol- 
lowed by a list of the Turbo Graphix procedures and functions that apply 
to each. 



Pixels 



The term pixel is an acronym for picture element. Pixels, in fact, are the 
basic elements that make up a video display image. The tiny dots that 
combine to make the text and graphic images you see on your comput- 
er monitor are pixels. 

The Turbo Graphix Toolbox allows you to display pixels as black or 
white with monochrome cards, or in any color supported by a color card. 



Screens 



A screen is the configuration of pixels that make up displayed text or 
graphic images. Depending on the type of graphics card installed in your 
system, the screen display will be made up of the following horizontal- 
by-vertical pixel dimensions: 

• IBM 640x200 

• Hercules 720x350 

• Zenith 640x225 
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Because the Hercules display is made up of a greater number of pixels, 
the graphic images created are finer in grain — that is, they are higher in 
resolution. Because of their higher resolution, they also take longer to 
draw. IBM and Zenith graphics images are coarser grained, and there- 
fore lower in resolution. The concept of resolution is easy to understand 
if you think of drawings made with pencils or pens; a drawing done with 
a fine-point drawing pen will be of a higher resolution, and will take 
longer to draw than one done with a blunt pencil. 

For standard text display — that is, the text normally displayed by your 
system — a screen can also be thought of as a sequence of 80 vertical 
character columns that make up the width, and 25 lines of characters 
that make up the height. 

There are two types of screens that you can use for creating images 
with the Toolbox: the screen displayed on your monitor, and a RAM (vir- 
tual) screen in memory. You can draw on either screen, but only the 
monitor screen is viewable; the RAM screen is invisible. The screen you 
are currently drawing on is called the active screen. RAM screens are 
useful for storing complicated images that are used often and are time 
consuming to redraw, or for animation, when it would be distracting to 
allow the computer to visibly redraw the screen. 

The procedures and functions that are used to manipulate screens are: 

ClearScreen LoadScreen 

CopyScreen SaveScreen 

GetScreen SelectScreen 

InvertScreen SwapScreen 



Characters and Fonts 

A character is a letter, number, or symbol that is represented on your 
screen by a rectangular configuration of pixels. A sequence of charac- 
ters makes up a display of text. 

There are two styles — or fonts — in which text can be displayed with the 
Turbo Graphix Toolbox: 
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• A simple, 4x6-pixel upper- and lower-case font that is used to display 
window headers, pie chart labels, or any text you wish to display in 
integer multiples of 4x6 pixels 

• A larger, higher quality font (8x8 pixels with an IBM card, 9x14 pixels 
with the Hercules card, and 8x9 pixels with the Zenith card) that 
corresponds to the font normally used with the particular graphics 
card installed in your system 

Exactly how the Turbo Graphix Toolbox utilizes these two fonts will be- 
come clear when you read the next section about coordinate systems. 

The procedures and functions that affect text are: 

DC DrawTextW 

DefineHeader TextDown 

DefineTextWindow TextLeft 

DisplayChar TextRight 

DrawAscii TextUp 
DrawText 



Coordinate Systems 

A coordinate system is a method used to identify a location according to 
its position relative to horizontal and vertical axes. In mathematics, usu- 
ally, and in Turbo Graphix Toolbox programming in particular, the hor- 
izontal axis is labeled X, and the vertical axis Y. The exact location of, 
for example, a point, is determined by the X and Y coordinates of that 
point — that is, its distance from the X and Y zero axes. 

Coordinate systems are extremely important in graphics programming, 
since all screen positions for text and graphics must be specified using 
X and Y coordinates. There are two types of coordinate systems that 
you can choose when working with the Turbo Graphix Toolbox: abso- 
lute screen and world coordinate systems. 
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Absolute Screen Coordinate System 

The absolute screen coordinate system refers to the entire monitor 
screen, and the actual character and pixel screen positions, for plotting 
text and graphics; coordinates [0,0] are in the upper left corner of the 
screen, with the X coordinates increasing to the right, and the /coordi- 
nates increasing downward. As mentioned earlier, the screen can be re- 
garded either as a configuration of pixels or as a series of 25 lines by 80 
columns. 

Text is handled in two ways. The simple, 4x6-pixel font used for window 
headers and footers can be plotted anywhere on the screen, and can be 
scaled to be any size that is an integer multiple of 4x6 pixels (for exam- 
ple, 8x12). The higher quality font is plotted according to 80x25 text 
column and line coordinates. 



World Coordinate System 

For most graphics, the absolute screen coordinate system will not easily 
translate to the application's numeric values. A world coordinate system 
is an arbitrary coordinate system that you specify to accommodate your 
particular application. The numbers you use in your world coordinate 
system can be (and usually are) completely unrelated to pixel coordi- 
nates. In Turbo Graphix Toolbox language, this is called defining a 
world. 

A world coordinate system can be used to scale images so that they fit 
correctly into the windows you have defined. After you define the world 
for a given window, any images you subsequently draw will be automati- 
cally, proportionately scaled to fit the window. 

The procedures and functions that affect worlds are: 

DefineWorld ResetWorlds 

FindWorld SelectWorld 



Windows 

A window is any area of the screen that you define as the drawing area. 
Several windows, containing different drawings and text, can be defined 
and then displayed simultaneously on the screen. Each window can be 
moved independently of the other windows, placed on top of other win- 
dows, and stored to, recalled from, or erased from memory. Windows 
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can be stored and loaded individually or in groups to and from disk. 
Several windows can be stored in RAM, and quickly copied to and from 
the active screen. You can draw borders, incorporate high-quality text, 
and label your windows with headers or footers. The window you are 
currently drawing in is called the active window. 

A window can be specified to be almost any size, from the whole screen 
to 1 vertical pixel by 8 horizontal pixels. You define a window area by 
specifying the X and Y coordinates of its upper left and lower right 
corners, with /coordinates measured in 1 -pixel units and X coordinates 
measured in 8-pixel units. These coordinates are called window 
definition coordinates. In window definition coordinates, the point [0,0] 
refers to the upper left corner of the screen. 

Once you're working within a window, you can redefine its world coordi- 
nate system, thereby allowing multiple images to be displayed within one 
window, each with its own coordinate system. Coordinate axes, along 
with lettering, can be easily added to any drawing. 

A special RAM memory area, the window stack, is set aside for tem- 
porary storage of windows. The stack comes in handy when you have 
several windows that you want to keep but don't want to display all at 
the same time. The stack is also used for storing windows that would 
otherwise be erased when another window is moved over them on the 
screen. 

The procedures and functions that affect windows are: 



ClearWindowStack 

Clip 

Clipping 

CopyWindow 

DefineHeader 

DefineWindow 

DefineWorld 

DrawBorder 

GetWindow 

InvertWindow 

LoadWindow 

LoadWindowStack 



RedefineWindow 

RemoveHeader 

ResetWindows 

ResetWindowStack 

RestoreWindow 

SaveWindow 

SaveWindowStack 

SelectWindow 

SelectWorld 

SetBackground 

SetBackground8 

SetClippingOn 



SetClippingOff 

SetHeaderOn 

SetHeaderOff 

SetHeaderToTop 

SetHeaderToBottom 

SetWindowModeOff 

SetWindowModeOn 

StoreWindow 

WindowSize 

WindowStackSize 

WindowX 

WindowY 
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Clipping 



The Turbo Graphix Toolbox allows you to "clip" images at window 
boundaries if you wish. This feature accomplishes several purposes: 

• It relieves you from having to be exact when you're drawing in a win- 
dow. The Toolbox does the nitty-gritty work of keeping your work 
within window boundaries. 

• It lets you "zoom in" on some aspect of a drawing. For example, 
let's say you've defined your world coordinate system for a window. 
Once you're working in the window, you can redefine the world. 
When the image is drawn, the Turbo Graphix program will "zoom in" 
and "clip" any part of your drawing that falls outside the window with 
the new coordinate system. 

• It protects program memory. Drawings that stray outside screen 
boundaries can encroach on other parts of memory, including parts 
of your application program. 
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Figure 1-1: The Clipping Option Used To "Zoom in" on a Drawing 

There are times when you'll choose not to clip drawings. For instance, 
you may develop a program using the clipping option, but once the pro- 
gram is debugged, and you know your drawings are within bounds, you 
can turn clipping off. This speeds up the drawing process considerably. 
Or, if you're working strictly with absolute coordinates, you don't need 
to worry about drawing outside screen boundaries. 
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How to Use the Turbo Graphix Toolbox With Your Hardware 

There are a few differences between the computer systems and graph- 
ics cards that can run the Toolbox. In some cases, these differences re- 
quire your special consideration when creating Toolbox-based pro- 
grams. 

There are two hardware considerations to take into account if you are 
using the IBM version of the the Turbo Graphix Toolbox: IBM compati- 
bility, and graphics cards. The information below will tell you briefly what 
you need to know about your particular system; more technical details 
about certain hardware configurations can be found in Appendix A. 

The IBM PC and True Compatibles 

The Turbo Graphix Toolbox runs on any IBM PC, PC Jr., and compati- 
ble computer. But what exactly is a true IBM-compatible computer? 
There are many computers on the market today that are billed as IBM- 
compatible, and to some extent they are. However, when considering 
whether a computer is IBM compatible, it is important to look at the 
specific application you are using the computer for. In the case of the 
Turbo Graphix Toolbox, you must consider whether the graphics 
displayed by your computer will be true to your program design. 

A potential problem with some IBM compatibles is that their screen 
display is of a higher resolution than the IBM screen. The Corona PC is 
a good example. Although the Corona's higher resolution display can 
make for very high-quality text and graphics, graphic images created 
with the Turbo Graphix Toolbox will not display true-to-form on the 
Corona screen; because of the Corona's higher resolution, the drawing 
will appear to be compressed vertically. 

A good test for whether your IBM-compatible computer will run the 
Toolbox is to test the Flight Simulator program (written for the IBM PC) 
on your system. If your computer can run Flight Simulator, it's a good 
bet it will also run the Toolbox without problems. 

Compatibility is also a consideration when your program will be running 
on more than one computer system. Some distortion of screen images 
may result when a program designed on a computer with an IBM card is 
run on a computer with a Hercules card. See Appendix A for information 
about how to cope with those kinds of problems. 
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Below is a list of computers and graphics cards that are sure to run the 
Turbo Graphix Toolbox. Next to the name of the product, the Turbo 
Graphix Toolbox version that runs with that product is given in 
parentheses. If your computer or graphics card is not on this list, give a 
call to Borland's technical support staff; they'll be able to tell you wheth- 
er your computer will run the Graphix Toolbox. 

AT&T PC 6300 (IBM) 

Columbia MBC, VP (IBM) 

Compaq Portable and DeskPro (IBM) 

Comway Comgraphics card (Hercules) 

Com way Comtronics (IBM) 

Comway Comcolor (IBM) 

Heath/Zenith Z100 series (Zenith) 

Heath/Zenith Z150 series (IBM) 

Hercules color card (IBM) 

Hercules monochrome card (Hercules) 

IBM Color/Graphics adapter (IBM) 

IBM Enhanced Graphics adapter (IBM) 

IBM PCjr (IBM) 

Leading Edge PC (IBM) 

MA Systems PC Peacock (IBM) 

Panasonic SR Partner (IBM) 

Paradise/USI MultiDisplay (IBM) 

Paradise Modular Graphics Card (IBM) 

Profit Systems Multigraph (IBM) 

QuadRAM QuadColor I, II (IBM) 

Seequa Chameleon line (IBM) 

STB Graphics Plus II (IBM) 

Tandy 1000 (IBM) 

Tava (IBM) 

Tecmar Graphics Master (IBM) 

TeleVideo PC (IBM) 

Tseng Laboratories UltraPAK (Hercules) 

Vutek Color Plus (IBM) 



IBM Color Graphics Card 

If you have an IBM graphics card installed in your computer, your screen 
display is 640 pixels wide by 200 pixels tall. The SetBackground- 
Color and SetForegroundColor procedures are used to determine back- 
ground and display image colors. You can also use the SetColor- 
White and SetColorBlack procedures to reverse the background and 
foreground colors. 
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Hercules Monochrome Graphics Card 

The Hercules graphics card produces a higher resolution display: 720 
pixels wide by 350 pixels tall. The background of the display will be 
black, and the displayed images will be in the color produced by your 
monochrome monitor. 

There are some important considerations to keep in mind when you de- 
cide to run your programs developed with a Hercules card on other sys- 
tems. These and other potential problems are discussed in Appendix A. 

Heath/Zenith Z-100 Computer 

The Zenith version of the Turbo Graphix Toolbox produces a screen 
display 640 pixels wide by 225 pixels tall. The Z-100 computer runs the 
Turbo Graphix Toolbox in essentially the same way as an IBM- 
compatible computer. However, you have only seven colors to choose 
from when setting the color of the displayed images, and background 
color must be black. 
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Notes: 
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Chapter 2 
GETTING STARTED 



Ready to start drawing? This tutorial chapter takes you on a step-by- 
step tour of the Turbo Graphix Toolbox, using commented program ex- 
amples for both basic and sophisticated graphics routines. The exam- 
ples build on each other, so if you read the chapter through in order, by 
the end you should be ready to incorporate the Turbo Graphix routines 
you need into any graphics application program. 

This chapter is designed as a basic tutorial. Technical details about the 
Turbo Graphix procedures used in this chapter can be found in Chapter 
3. Basic graphics concepts and terminology used in this chapter are ex- 
plained in Chapter 1 and Appendix B. 

Including Turbo Graphix Routines in Your Program 

To use the Turbo Graphix Toolbox, you must first incorporate three 
basic system files in your program with the Turbo Pascal include direc- 
tive. The include directive is a comment that tells the compiler to read 
the program contained in the specified file. This directive starts with $1, 
followed by the file name and extension of the file to be included. To be 
understood by the Turbo Graphix Toolbox, the entire include directive 
must be enclosed within braces, i.e., ($1 filename.???}. You must enter 
the include directive in the first column of your program text, before any 
code that utilizes the routines in the include file. Drive designations are 
also supported, and with Turbo 3.0, you can use full MS-DOS tree- 
structured directory path names. 

Every Turbo Graphix program must include the following three system 
files, in the order given below. 

{$1 TYPEDEF.SYS} 
{$1 GRAPHIX.SYS} 
{$1 KERNEL.SYS} 

You must copy the GRAPHIX file written for your hardware (supplied on 
the distribution disk) onto the GRAPHIX.SYS file. This is done by invok- 
ing the Turbo Graphix batch program, i.e., type tginst hgc or tginst ibm. 
Failure to do so may cause malfunctioning of your Turbo Graphix pro- 
grams. 
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Including Turbo Graphix Routines in Your Program 

Next, before calling the Turbo Graphix routines you need for your 
particular application, you must initialize the graphics system by calling 
the InitGraphic procedure. At the end of your program, you must call 
LeaveGraphic to return your system to text mode. See Chapter 3 for 
detailed information about these procedures. 

All of the example programs in this chapter are included on the Turbo 
Graphix Toolbox distribution disk, so you can try out the examples and 
experiment with the calling parameters in the various procedures. 
Each example program is listed under a file name of the form 
FILENAME.PAS. 

Every program example consists of five basic steps: 

• Include at least the three core Turbo Graphix files 

• Call InitGraphic to enter graphics mode 

• Call DrawBorder to draw a border around the drawing area (optional) 

• Draw your images or text 

• Include a wait loop so you can view the display (optional) 

• Call LeaveGraphic to return to text mode 



Drawing Points 

You can use the Turbo Graphix DrawPoint procedure to draw points us- 
ing either absolute screen or world coordinates. (See Chapter 1 for a 
definition of coordinate systems). The next two sections show you how 
to draw points using the screen coordinate system, while the section fol- 
lowing explains how points are drawn in world coordinates. You should 
read this section even if you aren't interested in drawing points, because 
the rest of the examples in this chapter utilize world coordinate systems; 
it is important that you understand the point-drawing examples in order 
to see the difference between screen and world coordinate systems. 
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Drawing Points 



Drawing a Single Point 



Writing a program that draws a single point is the simplest thing you can 
do with the Turbo Graphix Toolbox. Below is a Turbo Pascal program 
(DRWPNT.PAS on the distribution disk) that draws and displays a single 
point. 

program ExamplePoint; 

{$1 typedef.sys} {include system independent type definitions} 

{$1 graphix. sys} {include system dependent defs and routines} 

{$1 kernel. sys} {include system independent support routines} 

begin 



InitGraphic; 
DrawBorder; 



{initialize the graphics system} 



DrawPoint(lOO.lOO); 



{draw the point} 



repeat until KeyPressed; 
LeaveGraphic; 



{wait until a key is pressed} 
{leave the graphics system} 



end. 



Figure 2-1: A Single Point (DRWPNT.PAS Example) 
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Drawing Points 



Drawing a Cluster of Points 

The following program (DRWPNTS.PAS on the distribution disk) draws 
1000 points, displayed randomly on the screen. For this example, let's 
assume you have an IBM graphics card installed in your system. 

program DrawPoints; 



{$1 typedef.sys} 
{$1 graphix.sys} 
{$1 kernel. sys} 



{include the graphics system code} 



var i: integer; 



begin 

InitGraphic; 
DrawBorder; 



{init the system and screen} 



for i:=l to 1000 do {draw 1000 random points on IBM screen} 

DrawPoint( random (639) , random ( 199) ) ; 



repeat until KeyPressed; 
LeaveGraphic; 
end. 



{wait until a key is pressed} 




Figure 2-2: A Cluster of Points (DRWPNTS.PAS Example) 
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Drawing Points 



If you were to run this program on a system with a Hercules graphics 
card, the points would be drawn in the upper left corner of the screen. 
This is because the points are drawn in absolute screen coordinates. 
Since screen dimensions produced by the Hercules card are larger than 
IBM (720x350 instead of 640X200), and since coordinates [0,0] are in 
the upper left corner of the screen, the random points would be drawn 
as though they were on an IBM screen placed in the upper left corner of 
the Hercules screen. 




Figure 2-3: Previous (DRWPNTS.PAS) Example on Hercules Screen 



To avoid this skewed placement, and to allow you to run your program 
on systems with different graphics cards, you can write this program so 
that it uses a world coordinate system instead of the absolute screen 
coordinate system, as described next. 



Drawing Points Using a Worid Coordinate System 

A world coordinate system lets you define the addressing dimensions of 
your drawing area, independently of the screen type and size. Once you 
have defined your world, the Turbo Graphix program will scale the draw- 
ing to fit the screen or window you are using. 

The following program (WDRWPNTS.PAS on the distribution disk) is 
identical to the one in the previous section, but uses a world coordinate 
system instead of the absolute screen coordinate system. 
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Drawing Points 



program WorldDrawPoints; 

{$1 typedef.sys} {include the graphics system code} 

{$1 graphix.sys} 
{$1 kernel. sys} 

var i: integer; 

begin 

InitGraphic; {init the system and screen} 

DrawBorder; 

Def ineWorld( 1,0, 1000 , 1000 , ) ; {define a world for drawing} 
SelectWorld(l); {select it} 

SelectWindow(l); 

for i:=l to 1000 do {draw 1000 random points on world} 

DrawPoint ( random( 1000 ) , random( 1000 ) ) ; 

repeat until KeyPressed; {wait until a key is pressed} 
LeaveGraphic; 
end. 



Erasing a Point 

To erase a point, change the drawing color to black, and then draw the 
point, as follows: 

SetColorBlack; 
DrawPoint (x,y); 



Summary of Point Routines 

DrawPoint draws a point in world or screen coordinates 

DP draws a point in absolute screen coordinates only 

PD returns TRUE if a point is drawn at specified screen coordinates 

PointDrawn returns TRUE if a point is drawn at specified world 
coordinates 
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Drawing Lines 



The DrawLine procedure allows you to draw and display lines in the 
current line style (selected by the SetLineStyle procedure). The coordi- 
nates for lines drawn in the following program examples are all calculat- 
ed using world coordinate systems. 



Drawing a Single Line 

The following program (DRWLIN.PAS on the distribution disk) draws a 
line from the upper right to the lower left corner of the screen. Endpoint 
coordinates are passed to the procedure as the X and Y coordinates of 
the first endpoint, followed by the X and Y coordinates of the second 
endpoint. 

program DrawLine; 

{$1 typedef.sys} {include graphics system} 

{$1 graphix.sys} 
{$1 kernel. sys} 

var i: integer; 

begin 

InitGraphic; {initiali2B the graphics system} 

DrawBorder; 

DefineWorld( 1,0, 1000, 1000,0); {define the world to draw in} 

SelectWorld(l); 

SelectWindow(l); 

DrawLine(0, 1000, 1000,0); {draw the line} 

repeat until KeyPressed; {wait until a key is pressed} 

LeaveGraphic; {leave the graphics system} 

end. 
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Drawing Lines 




Figure 2-4: A Line (DRWLIN.PAS Example) 



Drawing a "Walking Line" 

An intriguing variation on the DrawLine procedure is the "walking line." 
A walking line program generates, by increments, a series of endpoint 
coordinates, thereby creating a "walking line." By changing the formula 
used to generate the endpoint coordinates, a variety of shapes can be 
drawn. In the example below (DRWLINS.PAS on the distribution disk), 
the first endpoint moves uniformly across the top of the screen from left 
to right, while the other endpoint moves incrementally and diagonally 
from the upper right to the lower left corner of the screen. 
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Drawing Lines 



program DrawLines; 

{$1 typedef.sys} 
{$1 graphix.sys} 
{$1 kernel. sys} 

var i: integer; 

begin 

InitGraphic; 



{include the graphics system code} 



{init the system and screen} 



DefineWorld( 1,0, 1000, 1000, ) ; {define a world for drawing} 
SelectWorld(l); {select it} 

SelectWindow(l); 

SetBackground(O); 
DrawBorder; 

for i:=l to 20 do DrawLine(i*50,0,1000-i*50,i*50); 

repeat until KeyPressed; {wait until a key is pressed} 

LeaveGraphic; 
end. 




Figure 2-5: A Walking Line (DRWLINS.PAS Example) 
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Drawing Lines 

Summary of Line-Drawing Routines 

Clip clips a line at active window boundaries 

DrawLine draws a line using world or screen coordinates 

DrawLineClipped clips a line at screen boundaries 

DrawStraight draws a horizontal line 

SetLinestyle selects one of five linestyles for drawing lines 

GetLinestyle returns the current linestyle 

Drawing Squares 

The DrawSquare procedure draws rectangles in the current line style 
(selected by the SetLineStyle procedure). A rectangle is defined by the 
coordinates of the points at its upper left and lower right corners. A boole- 
an value, Fill, allows you to fill the rectangle with the current drawing color 
(determined by the SetForegroundColor procedure). The following pro- 
gram (DRWSQ.PAS on the distribution disk) draws a series of consecu- 
tively larger squares around the center of the screen, with no fill. Another 
example program not illustrated here (DRWHCH.PAS on the distribution 
disk) draws hatched squares. 

program DrawSquares; 

{$1 typedef .sys} {include the graphics system code} 

{$1 graphix.sys} 
{$1 kernel. sys} 

var i: integer; 
begin 

InitGraphic; {init the system and screen} 

DefineWorld( 1,0, 1000, 1000,0); {define a world for drawing} 

SelectWorld(l); {select it} 

SelectWindow(l); 

DrawBorder; 

for i:=l to 20 do DrawSquare (500-i*25,500-i*25,500+i*25,500+i*25, false); 
repeat until KeyPressed; {wait until a key is pressed} 

LeaveGraphic; 
end. 
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Drawing Squares 
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Figure 2-6: Squares (DRWSQ.PAS Example) 

Summary of Square-Drawing Routines 

DrawSquare draws a square using world coordinates 

DrawSquareC draws a square using screen coordinates, but clipped at 
the boundaries of the active window 

SetForegroundColor chooses the current drawing color 

SetLinestyle chooses the line style 

Drawing Circles 

Because different graphics cards produce screen displays with different 
vertical-by-horizontal dimensions, and because different monitors have 
different screen proportions, a correctly-proportioned circle drawn on 
one screen may look distorted on another screen. To adjust for 
differences in screen proportions, Turbo Graphix routines that deal with 
circles and ellipses — DrawCircle, DrawCircleSegment, DrawCartPie and 
DrawPolarPie — utilize the concept of the aspect ratio. 
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Drawing Circles 



An aspect ratio is defined as the height-to-width ratio of a circle or ellipse. 
Turbo Graphix circle routines allow you to vary the aspect ratio's vertical 
dimension by calling the SetAspect procedure. In addition, a global con- 
stant, AspectFactor, sets the system-dependent aspect ratio, so that an 
aspect ratio of 1.0 produces a true circle on a particular hard- 
ware screen. 

The following program (DRWCIR.PAS on the distribution disk) draws a 
series of circles, and varies both their radii and aspect ratios. The 
parameters passed to the DrawCircle procedure specify the X and Y 
world coordinates of the center of the circle; the radius corresponds to 
the X (horizontal) dimension of the circle. 

program DrawCirc; 

{$1 typedef.sys} {include the graphics system code} 

{$1 graphix. sys} 
{$1 kernel, sys} 

var i: integer; 
AspectLoc , rad : real ; 

begin 

InitGraphic; {init the system and screen} 

DefineWorld( 1,0, 1000, 1000,0); {define a world for drawing} 
SelectWorld(l); {select it} 

SelectWindow(l); 
DrawBorder; 

rad: =1.5; {set initial radius} 

AspectLoc :=GetAspect; {save default aspect ratio} 
SetAspect (0.2); {init it for this routine} 

for i:-l to 15 do {draw circles} 

begin 

DrawCircle(500,500, rad) ; 

SetAspect ( . 2+i/10 ) ; 

rad:=rad-0.05; 
end; 

SetAspect (AspectLoc); {restore previous aspect ratio} 

repeat until KeyPressed; {wait until a key is pressed} 

LeaveGraphic; 
end. 
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Drawing Circles 




Figure 2-7: Circles (DRWCIR.PAS Example) 

Summary of Related Routines 

DrawCircle draws a circle or ellipse using world or screen coordinates 

DrawCircleDirect draws a circle or ellipse using screen coordinates 

DrawCircleSegment draws an arc of a circle 

DrawPie draws a pie chart 

GetAspect returns the current aspect ratio 

SetAspect determines the aspect ratio for a circle 



Text 



As explained in Chapter 1 , the Turbo Graphix Toolbox supports both a 
4x6-pixel text and a machine-dependent text. The size of machine- 
dependent characters is 8x8 pixels for IBM, 9x14 pixels for Hercules, 
and 8x9 pixels for Zenith. 
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Displaying Machine-Dependent Text 

The text routines used by the Turbo Graphix Toolbox are very similar to 
those used by Turbo Pascal; the screen is defined as 25 lines by 80 
columns (characters), and the Turbo Pascal procedures GotoXY, Write 
and WriteLN are supported by the Graphix Toolbox. However, there are 
a few considerations specific to the Turbo Graphix text mode concern- 
ing the alignment of text with drawings, and within windows. Since the 
size of the text font varies with the graphics card installed, some adjust- 
ments must be made when attempting to align text with drawings. In 
particular, Hercules text, which is defined on a 9-pixel horizontal boun- 
dary, must be adjusted for the 8-pixel window boundary. See Appendix 
A for technical information on text fitting. 

The following program (DRWSTXT.PAS on the distribution disk) places 
the start of a text string at the center of the screen, demonstrates the 
automatic new-line performed by WriteLN, and places the text within a 
filled box whose dimensions are determined according to the world coor- 
dinate system. The coordinates for the points at the corners of the box 
are computed from the character positions of the text. 

program DrawStandardText; 

{$1 typedef.sys} {include graphics system} 

{$1 graphix. sys} 
{$1 kernel. sys} 

const MaxWorldX: real=1000.0; 
MaxWorldY: real=1000.0; 

var i: integer; 

CharHeight , CharWidth : real ; 

begin 

InitGraphic; {initialize the graphics system} 

DefineWorld(l,0, MaxWorldY, MaxWorldX, 0); {define world to draw in} 

SelectWorld(l); 

SelectWindow(l); 

DrawBorder; 
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GotoXY(39,12); {goto the center of the text screen} 

writeln( ' * <- This should be at the center ' ) ; {do two lines of text} 
write ( "This should be on the next line' ); 



CharWidth : =MaxWorldX/80 ; 
CharHeight : =MaxWorldY/25 ; 



{compute a character's width} 
{compute a character's height} 



DrawSquare(9*C3iarWidth,7*aiarHeight, {draw box at text loc [10,8]} 

( 22*CharWidth ) +2 , ( 8*CharHeight ) +2 , true ) ; 



GotoXY(10,8); 

write( 'Text in a box' ); 



{write text in it} 



repeat until KeyPressed; 
LeaveGraphic; 
end. 



{wait until a key is pressed} 
{leave the graphics system} 



[Text in a boxl 



This should be on the next line 



* <■ This should be at the center 



Figure 2-8: Machine-Dependent Text (DRWSTXT.PAS Example) 
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Displaying 4x6-Pixel Text 

The 4x6-pixel character set is used for window headers, and for applica- 
tions that require text that is smaller or larger than the machine- 
dependent text. Unlike the machine-dependent text, the 4x6-pixel char- 
acters can be placed at any screen location. The Scale parameter 
passed to the DrawText procedure specifies the size of the characters 
(in integer multiples of 4x6 pixels); the larger the value of Scale, the 
larger the character. 

Since a character in the 4x6-pixel font is made up of only a few pixels, 
this text is of a coarser quality than the machine-dependent text, even 
when they are scaled to the same size. 

The following example (DRWATXT.PAS on the distribution disk) uses 
the DrawText procedure to display upper-case characters, in different 
positions and sizes, in the center of the screen. The complete character 
set is then displayed at the upper left corner of the screen, scaled to its 
smallest size. 

program DrawAlternateText; 

{$1 typedef.sys} {include graphics system} 

{$1 graphix.sys} 
{$1 kernel. sys} 

const MaxWorldX: real=1000.0; 
MaxWorldY: real=1000.0; 
CharArrayl: array [0. .25] of char= 

( 'A' , 'B' , 'C* , 'D' , 'E' , 'F* , 'G' , 'H' , 'I' , 'J' , 'K' , 'L' , 
'M' , 'N' , '0' , 'P' , 'Q' , 'R' , 'S' , "T , 'U' , 'V , *W , 'X' , *Y' , 'Z' ) ; 

{define an array of characters} 
var i: integer; 

CharHeight , CharWidth : real ; 

begin 

InitGraphic; {initialize the graphics system} 

DefineWorld(l,0,MaxS?orldY,Marf7orldX,0); {define the world to draw in} 

SelectWorld(l); 

SelectWindow(l); 

DrawBorder; 
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for i:=l to 50 do {print random characters in center of screen} 
DrawTextW( random( 600 ) +200 , random( 600 ) +200 , 

random(5) ,CharArrayltrandom(26) ] ) ; 

DratfTextW(:i5,50,VABCBEHHIJKLMro^^ {type chars in corner} 

DrawTextW( 15, 100, 1, 'abcdefghijklmnopqrstuvwxyz' ) ; 
DrawTextW( 15, 150, 1, ' 1234567890—V !@#$% A &*( )_+| ' ) ; 
DrawTextW( 15,200, 1. • [ ] {} : " ; , •<>/? ' ) ." 



repeat until KeyPressed; 
LeaveGraphic; 
end. 



{wait until a key is pressed} 
{leave the graphics system} 
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Figure 2-9: 4x6-Pixel Text (DRWATXTPAS Example) 



GETTING STARTED 



33 



Text 

Summary of Text-Drawing Routines 

For machine-dependent text: 

DC draws a character at the specified text coordinates 

DefineTextWindow uses specified text coordinates to define a window 

DisplayChar draws a character at the specified text coordinates 

TextDown, TextLeft, TextRight, TextUp adjust space between window 
boundaries and text (text fitting) 

For 4x6-pixel text: 

DefineHeader defines a window header 
DrawAscii draws a character at the specified screen coordinates 
DrawText draws a character string at the specified screen coordinates 
DrawTextW draws a character string at the specified world coordinates 

Windows 

This section tells you how to create and manipulate on-screen windows. 
The use of windows allows greater flexibility in graphics applications, 
since you can display several different drawings on the screen at once, 
using different world coordinate systems; and you are not limited to the 
pixel dimensions of the window. 



Defining a Window 

When the Turbo Graphix Toolbox is initialized with the InitGraphic pro- 
cedure, the entire screen is, in effect, defined as a window whose world 
coordinates correspond to the pixel dimensions of the screen. However, 
you can redefine any region of the screen as a window, from an 8x1- 
pixel (horizontal by vertical) box to the entire screen. 

Once defined, a window acts more or less independently of other win- 
dows and even the screen. Windows can be small or large, moved 
around, drawn on with reference to their own coordinate systems and 
boundaries, and individually removed, stored, and retrieved. 
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Windows 



Generally, you will want to define a new world coordinate system for 
every window you define; otherwise, any drawing you do in a window 
will take place as if the screen coordinate system were mapped to that 
window. All drawing routines — except routines internal to the graphics 
system, routines for machine-dependent text positioning such as 
GotoXY, and window positioning routines — can use world coordinate 
systems. 

To associate a world with a window, you must always call SelectWorld 
before SelectWindow. If a new window is subsequently selected, the 
current world is retained. Thus, to draw alternately in two windows with 
different worlds, SelectWorld must be called before each SelectWindow: 

repeat 

SelectWorld(l); 
SelectWindow(l); 

{ Insert code to draw something in window 1 
using world coordinate system 1 } 
SelectWorld(4) ; 
SelectWindow(2); 

{ Insert code to draw something in window 2 
using world coordinate system 4 } 
until KeyPressed; 

Besides simply defining the dimensions of your window, you can label it 
with a header or footer, fill it in with a color or background pattern, or 
draw a border around it in any line style. When a new window is defined 
or an existing window is redefined, the header associated with that win- 
dow number is destroyed. This means that DefineWindow must be 
called before DefineHeader. 

To change the dimensions of an existing window, without changing its 
header, use the RedefineWindow procedure. 

The following example (SIMPWIND.PAS) shows you how to define a 
window with a border and a header. 
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program SimpleWindow; 

{$1 typedef.sys} 
{JI graphix.sys} 
{$1 kernel. sys} 
{$1 windows. sys} 



{these files must be} 
{included and in this order} 



begin 

InitGraphic; {initialize the graphics system} 

DrawBorder; {draw a border around the drawing} 

{area of the primary window} 

DefineWindow(l,10,20,XMaxGlb-10,YMaxGlb-20); {define a window 80 pixels} 

{in from the left and right edges, and 20} 
{from the top and bottom edges} 

DefineHeader(l, "IKES IS AN EXAMFLE WINDOW' ); {give it a header} 

SetHeaderOn; 

{give it a grey background} 

{select the window} 

{select the world} 

{give it a world coordinate system} 

{draw the border} 

{wait until a key is pressed} 

{leave the graphics system} 



SetBackground(85 ) ; 
SelectWindow(l); 
SelectWorld(l); 
Def ineWorld( 1,0, 1000 , 1000 , 
DrawBorder; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 




Figure 2-10: A Window (SIMPWIND.PAS Example) 
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Windows 

Displaying a Drawing in a Window 

Suppose you want to display the "walking line" example in a window. 
You can display the example using a world coordinate system, and in 
any position on the screen by following these steps: 

Define the window 

Define the world coordinate system for the window 

Select the world coordinate system 

Select the window for drawing 

Draw a border (optional) 

Display the walking lines 

The following example (MULTWIND.PAS) displays the walking line ex- 
ample in three different windows, each with its own coordinate system, 
with the drawings clipped at window boundaries. 

program MultipleWindows; 

{$1 typedef .sys} {these files must be} 

{$1 graphix.sys} {included and in this order} 

{$1 kernel. sys} 
{$1 windows. sys} 

var i: integer; 

procedure DrawLines; 
var i: integer; 
begin 

for i:=l to 20 do DrawLine(i*50,0,1000-i*50,i*50); 
end; 
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begin 

InitGraphic; {initialize the graphics system} 

DrawBorder; {draw a border around the drawing} 

{area of the primary window} 
{(the dimensions of the primary window} 
{default to the screen dimensions)} 
DefineWindow( 1, trunc (XMaxGlb/10) , traic(YMaxGlb/10) , 
trunc ( XMaxGlb/2 ) , trunc ( YMaxGlb/2 ) ) ; 

{define a window one tenth of the way} 
{in from the left and top edges, and half} 
{way down from the right and bottom edges} 

DefineHeader(l, 'THIS IS A LARGER WCKD'); {give it a header} 
DefineWorld(l, 0,2000, 2000,0); {give it a larger world coord, system} 
DefineWindow( 2 , trunc ( XMaxGlb/3 ), trunc (YMaxGlb/3 ) , 

trunc( (XMaxGlb*2)/3) , trunc ( (WlaxGlb*2)/3) ) ; 

{define a window one third of the way} 
{in from the left and top edges, and} 
{from the right and bottom edges} 

DefineHeader(2, 'THIS IS A CORRECT WORLD' ); {give it a header} 
DefineWorld(2,0, 1000, 1000,0); {give it a correct world coord, system} 
DefineWindow(3, trunc (XMaxGlb/2) , trunc (YMaxGlb/2) , 

trunc( (XMaxGlb*9)/10), trunc ( (YMaxGlb*9)/10) ) ; 

{define a window one half of the way} 
{in from the left and top edges, and half} 
{way down from the right and bottom edges} 

DefineHeader(3, 'THIS IS A SMALLER WORLD' ); {give it a header} 
DefineWorld(3, 0,500, 500,0); {give it a smaller world coordinate system} 

for i:=l to 3 do 
begin 

SelectWorld(i); {select it} 

SelectWindow(i); {select it} 

SetHeaderOn; 

SetBackground(O); {give it a black background} 

DrawBorder; {draw border} 

DrawLines; {draw lines} 

end; 

repeat until KeyPressed; {wait until a key is pressed} 

LeaveGraphic; {leave the graphics system} 

end. 
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Figure 2-11: Three Windows (MULTWIND.PAS Example) 



Moving Windows 

Once you've defined a window, you can move it to any position on the 
screen using the MoveVer and MoveHor procedures; windows are 
moved by increments (multiples of 8 horizontal pixels and multiples of 1 
vertical pixel). 

MoveHor and MoveVer work by automatically and continually refreshing 
the screen images over which the window is moved. They do this by storing 
the displayed screen image to the virtual screen. 

If you want to move multiple windows, things get a bit more complicated; 
you must manage the windows and other screen images yourself. What 
this means is that you must continually rebuild the virtual screen image 
every time you move windows. If there are any images on the screen that 
you wish to keep, you must copy those images either to the window stack 
with the StoreWindow procedure (if the images are in a window) or to the 
RAM (virtual) screen with the CopyWindow or CopyScreen procedure (if 
the images are on the screen) so they can be retrieved later; otherwise, 
when you move a window over those images, they will be erased, and 
there will be no way to restore them. 
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For your windows to keep their integrity and to be moved independently, 
you must keep copies of all windows on the window stack, and store all 
screen images you want to keep on disk. For instance, if the screen 
contains two windows that you want to display independently — that is, 
you want to be able to move them around and place them on top of 
each other — you should do the following: using the SaveScreen pro- 
cedure, store the screen (without any windows) on disk, and store up- 
to-date copies of both windows on the window stack using the 
Store Window procedure. 

Every time you draw something in a window, or change what was previ- 
ously drawn, save a copy of the window on the window stack. When 
you want to move a window, save the presently displayed screen — 
without the window you plan to move — to the RAM virtual screen using 
the CopyScreen procedure, so the non-moving window is now also 
copied to the virtual screen. The virtual screen should now contain 
everything that was on the displayed screen, except the window you 
want to move. Now, draw the window you want to move on the screen, 
and use MoveHor and MoveVer to move the window around, without 
destroying the fixed images underneath. 

The window stack is a RAM memory area where window images can be 
stored temporarily. You might want to use the stack when, for instance, 
you have defined and drawn in several windows but only want to display 
a few on the screen, or if one window is obstructing another and the ob- 
structed window needs to be displayed. Whole window stacks, as well 
as individual windows in the stack, can be stored to and recalled from 
disk using the SaveWindow and RestoreWindow procedures. Windows 
on the stack can be accessed in any order. 

Windows can be restored from the stack to any location on the screen 
by specifying X and Y offsets. To restore the window to its former posi- 
tion, use offsets of 0. 

If the window currently selected with the SelectWindow procedure is the 
same as the one being restored from the stack, the screen coordinates 
of the selected window will shift to match the offset of the restored win- 
dow. The selected window does not change when any other window is 
restored from the stack. 

Stored windows and the RAM screen are dynamically allocated on the 
heap using the Turbo GetMem and FreeMem procedures. Therefore, 
the Mark/Release method of memory management should not be used 
in your programs. 
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The following program (MOVEWIND.PAS) shows how to move windows 
about on the screen; use the arrow keys to move the windows, and 
press the space bar to stop program execution. 

program MoveWindows; 

{$1 typedef.sys} {these files must be} 

{$1 graphix.sys} {included and in this order} 

{$1 kernel. sys} 

{$1 windows. sys} 

var i: integer; 
Ch: char; 

procedure DrawLines; 
var i: integer; 
begin 

for i:=l to 20 do DrawLine(i*50,0,1000-i*50,i*50); 
end; 

begin 

InitGraphic; {initialize the graphics system} 

DrawBorder; {draw a border around the drawing} 

{area of the primary window} 
{(the dimensions of the primary window} 
{defaults to the screen dimensions)} 

DefineWindow( 1, trunc(XMaxGlb/10) , trunc(YMaxGlb/10) , 
trunc(XMaxGlb/2) ,trunc(YMaxGlb/2) ) ; 

{define a window one tenth of the way} 
{in from left and top edges and half} 
{way down from right and bottom edges} 

DefineHeader(l, "IKES IS THE FIXED WINDOW ); {give it a header} 

DefineWorld( 1,0, 1000, 1000,0); {give it a world coordinate system} 

DefineWindow(2,trunc(XMaxGlb/2) ,trunc(YMaxGlb/2) , 

trunc( (XMaxGlb*9)/10) , trunc( (YMaxGlb*9)/10) ) ; 

{define a window one half of the way} 
{in from left and top edges, and half} 
{way down from right and bottom edges} 

DefineHeader(2, "IKES IS THE MOVEABLE WINDOW ) ; {give it a header} 

DefineWorld(2,0, 1000, 1000,0); {give it a world coordinate system} 

SelectWorld(l); {select world} 

SelectWindow(l); {select fixed window} 

SetHeaderOn; 

SetBackground(O); {give it a black background} 
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DrawBorder; 




{draw the window} 


DrawLines; 




{draw lines in it} 


CopyScreen; 




{copy it to the virtual screen} 


SetBreakOff; 




{don't error when edge hit} 


SetMessageOff; 






SelectWorld(2); 




{select world} 


SelectWindow(2); 




{select moveable window} 


SetHeaderOn; 






SetBackground(O); 




{give it a black background} 


DrawBorder; 




{draw the window} 


DrawLines; 




{draw lines in it} 


repeat 






read(Kbd,Ch); 




{read the keystroke} 


case ord(Ch) of 






72 : MoveVer(^l,true); 


{up arrow?} 


75 : MoveHor(-] 


L.true); 


{left arrow?} 


77 : MoveHor(l 


true); 


{right arrow?} 


80 : MoveVer(4 


true); 


{down arrow?} 


end; 






until Ch=' '; 




{space char exits program} 


LeaveGraphic; 




{leave the graphics system} 


end. 








Figure 2-12: Moving a Window (MOVEWIND.PAS Example) 
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Another Use for Windows: the Flow Chart 

Anything that can be contained in a rectangle can be animated using 
windows. The following example (FLOWDEMO.PAS) animates a flow 
chart by using a moveable window. The drawing of the flow chart is the 
fixed screen image, while a window that contains the present state of 
the "machine" is moved along the flow chart drawing to show how the 
processor modifies variables when the program executes. The program 
increments a count and tests the result. If the count is not large enough, 
the program increments the count and tests again. When the count is 
high enough, the "program" is finished. 

program FlowDemo; 

{$1 typedef.sys} {these files must be} 

{$1 graphix.sys} {included and in this order} 

{$1 kernel. sys} 

{$1 windows. sys} 

procedure FlowChartDemo; 

var Xl,Yl,X2,Y2,i,Count:integer; 
Temp : wrkstring; 

procedure DrawArrowHor ( XI, Y1,X2,Y2: integer); {draw horizontal arrow} 

{with tip at point [X2.Y2]} 
begin 
DrawLine(Xl, Y1.X2, Y2) ; 
if X2>X1 than 
begin 
DrawLine(X2-4,Y2-2,X2, Y2) ; 
DrawLine(X2-4,Y2+2,X2,Y2) ; 
end 
else 
begin 
DrawLine(X2+5,Y2-2,X2, Y2) ; 
DrawLine(X2+5,Y2+2,X2,Y2) ; 
end; 
end; 
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procedure DrawArrowVer ( XI , Yl , X2 , Y2 : integer ) ; 

begin 

DrawLine(Xl, Y1,X2,Y2) ; 
if Y2>Y1 then 
begin 
DrawLine(X2-2,Y2-3,X2,Y2) ; 
DrawLine(X2+2, Y2-3,X2, Y2) ; 
end 
else 
begin 
DrawLine(X2-2,Y2+3,X2,Y2) ; 
DrawLine(X2+2,Y2+3,X2,Y2) ; 
end; 
end; 



{draw vertical arrow} 
{with tip at point [X2,Y2]} 



procedure Blink( Count, time : integer) ; 
var i: integer; 
begin for i:=l to Count do 
begin 
Delay(time); 
InvertWindow; 
end; 
end; 



{blink the current window} 



begin {FlowChartDemo} 
DefineWindow( 1, 0, 0,79, 185) ; 
DefineWindow(2, 12,20,25,40) ; 
DefineWindow(3, 15,55,22,75) ; 
DefineWindow(4, 11, 110,26, 130) ; 
DefineWindow(5,47,90,56, 110) ; 



{define the 'FLOW CHART window} 

{define the 'START 1 window} 

{define the '1=1' window} 

{define the 'IF I<=5' window} 

{define the '1=1+1' window} 



ClearScreen; 
SetColorWhite; 

DefineHeader(l, 'A FLOW CHART' 

SetHeaderOn; 

SelectWindow(l); 

DrawBorder; 

SetHeaderOff; 

SelectWindow(2); 

DrawBorder; 

DrawText( 125,27,2, 'START' ); 

SetWindowModeOff; 

DrawArrowVer( 151,40, 151,55) ; 

SetWindowModeOn ; 



{draw the surrounding window} 



{draw the 'START' window} 



{draw the connecting line} 
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SelectWindow(3); 

DrawBorder; 

DrawText( 136,63,2, *I=1* ) ; 

SetWindowModeOff; 

DrawArrowVer ( 151 , 75 , 151 , 110 ) ; 

SetWindowModeOn ; 

SelectWindow(4) ; 

DrawBorder; 

DrawText( 108, 118,2, ' IF I<=5' ) ; 

DrawStraight(215,417, 120) ; 

SetWindowModeOff; 

DrawArrowVer(417, 120,417, 110) ; 

DrawArrowVer ( 151 , 130 , 151 , 155 ) ; 

SetWindowModeOn ; 

SelectWindow(l); 

DrawText( 300, 110,2, 'YES' ); 

DrawText( 160, 137,2, 'NO' ) ; 

SelectWindow(5); 
DrawBorder; 

DrawText(390,98,2, '1=1+1' ); 
SetWindowModeOff; 
DrawLine(417,90, 417,80) ; 
DrawArrowHor(417,80, 151,80) ; 

SetAspect(l.O); 
DrawCircle ( 151 , 165 , 25 ) ; 
SelectWindow(l); 
DrawText( 137, 163, 2, 'END' ) ; 
SetWindowModeOn ; 
SetHeaderOn; 



{draw the '1=1' window} 

{draw the connecting line} 
{draw the 'IF I>=5' window} 

{draw the connecting lines} 



{draw the '1=1+1' window} 



{draw the connecting lines} 



{draw the 'EM) 1 circle} 



CopyScreen; 

{ClearEol(25);} 
{gotoxy(27,25);} 

DefineWindow(2, 15,21,22,39) ; 

SelectWindow(2); 

SetBackground(O); 

DrawBorder; 

InvertWindow; 

Delay (1000); 



{make an image of this screen} 
{on the virtual RAM screen} 



{set up the moving window} 
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InvertWindow; 



Temp: = '123456'; 

MoveVer ( 35 , true ) ; 

DrawText( 139,63,2, 'I='+Temp[l] ); 

Blink(30,50); 

MoveVer ( 55 , true ) ; 



{initialize the number array} 
{move window over init statement} 
{'inif it} 

{move it down to increment loop} 



for Count: =2 to 6 do 
begin 

Delay (500); 
MoveHor(33,true); 
MoveVer ( -20 , true ) ; 
SetBackground(O); 
DrawBorder; 

DrawText(400,98,2, 'I='+Temp[Count]); 
Blink(30,50); 
MoveVer ( -20 , true ) ; 
MoveHor ( -33 , true ) ; 
MoveVer ( 40 , true ) ; 
end; 



{do increment loop} 



InvertWindow; 
Delay (1000); 
MoveVer(46, true ) ; 
Blink(30,50); 



{move to the 'END' statement} 



MoveHor(45, true ) ; 
MoveVer ( -136 , true ) ; 
MoveHor ( -45, true ) ; 
SetHeaderOn; 
end; 



{move back up to the top} 



begin 

InitGraphic; 
FlowChartDemo; 
repeat until KeyPressed; 
LeaveGraphic; 
end. 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 
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Figure 2-13: A Flow Chart (FLOWDEMO.PAS Example) 

Summary of Window Routines 

ClearWindowStack deletes a window from the stack 

CopyScreen copies the active screen onto the inactive screen 

CopyWindow copies a window from one screen to another 

DefineHeader defines a window header 

DefineWindow defines an area of the screen as a window 

DefineWorld defines a world coordinate system 

DrawBorder draws a line around the window 

GetWindow returns the code number of the active window 

InvertWindow inverts the color of the active window 

LoadWindow loads a window from disk to the specified world 
coordinates 

LoadWindowStack stores a window stack from disk to the window 
stack 
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RedefineWindow changes the dimensions of an existing window 

RemoveHeader removes a window header 

ResetWindowStack erases all windows from the stack 

ResetWindows sets all windows to the size of the physical screen 

SaveWindow saves a window to disk 

SaveWindowStack saves a window stack to disk 

SelectWindow selects a window for drawing 

SelectWorld selects a world coordinate system 

SetHeaderOff.SetHeaderOn determine whether a window header is 
displayed 

SetHeaderToBottom, SetHeaderToTop place a header at the bottom or 
top of a window 

SetWindowModeOff, SetWindowModeOn determine whether drawing 
takes place in a window or on the screen 

Store Window stores a window on the window stack 

WindowMode returns the window status 

WindowSize determines whether there is room for a window on the stack 

WindowStackSize returns the number of free bytes on the window stack 

Pie and Bar Charts 

Pie and bar charts provide a way to graphically represent numeric 
results that are common to many business and statistical applications. 
Three high-level routines — DrawCartPie and DrawPolarPie for pie 
charts, and DrawHistogram for bar charts — do most of the work re- 
quired to display information in pie and bar charts; all you have to do is 
supply the numerical data. As long as you are familiar with Turbo Pas- 
cal, the program examples used in this section can be easily tailored to 
a particular application. 
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Pie charts are used to display a series of values or percentages (the pie 
"slices") that make up a total unit (the whole pie). A pie chart shows, at 
a glance, the relative proportion of the whole that is represented by 
each value. For instance, a pie chart format is an effective way to show 
a company's market share, or the results of a scientific experiment. 

The DrawCartPie and DrawPolarPie procedures not only automatically 
draw a pie chart that corresponds to your input values; they can also la- 
bel each pie segment with text and/or a numeric value, as well as pull 
any pie segment away from the pie for display emphasis. Although pie 
charts can be drawn with reference to either world or screen coordi- 
nates, it is usually best to use world coordinates, especially if you want 
your program to run correctly on different computer systems. Also, pie 
charts drawn using a world coordinate system will be correctly propor- 
tioned in any given window, regardless of the size of the window. 

A pie chart is drawn by passing the following parameters: 

Coordinates of the center point of the pie 

Coordinates of the starting point of the first pie segment 

Value and optional label of each segment in an array 

Desired labeling options 

Scale of the label characters (multiples of 4x6 pixels) 

A pie chart can be specified so that the starting point of the first seg- 
ment of the pie chart is referenced to either of two coordinate systems: 
Cartesian coordinates [X,Y\, or polar coordinates [Radius.Angle]. The 
Cartesian coordinate system, used by the DrawCartPie procedure, al- 
lows the drawing to be referenced to a position located by [X, Y] coordi- 
nates. For instance, the first pie segment can be defined by a point rela- 
tive to the center of the pie. The polar coordinate system references the 
pie chart to its radius and the angle of its first segment. 

It is usually easiest to use polar coordinates — that is, to think of a pie 
chart as a circle with a certain radius, and with its first segment starting 
at a particular angle. The DrawPolarPie procedure uses polar coordi- 
nates. Since this is the method used most often, the DrawPolarPie pro- 
cedure is used in the example program ONEPIE.PAS. 



GETTING STARTED 49 



Pie and Bar Charts 



In this example, DrawPolarPie first defines a window that is the size of 
the entire screen, with a header and border. Next, the array of values 
and optional text labels to be used in the creation of the pie chart are ini- 
tialized. This part of the example is normally the only part that is 
application-specific. The size of each pie segment is specified by the 
.area entry in this array. This area is displayed as a percentage of the 
total area (determined by totalling all the other areas to be displayed in 
the pie). The numbers appropriate to your application are used here, and 
the DrawPolarPie procedure displays each segment according to its per- 
centage of the whole pie. If you give any of the array entries a negative 
value, the pie drawing procedure will move this segment outward. This 
feature can be used to draw attention to important segments of the pie 
chart. 

The Mode parameter allows you to display area values and/or text con- 
tained in PieArray as labels. These labels are usually displayed at the 
end of optional label lines. The area information is displayed exactly as 
passed in the array. If you don't want to display the numeric value of the 
segment, the Mode parameter allows you to display a text label only; 
the text is passed in the PieArray. The text label can include any al- 
phanumeric character or ESCape sequence (used to specify special 
graphics characters). See the DrawCartPie and DrawPolarPie pro- 
cedures in Chapter 3 for more information about this option. 

The next part of the ONEPIE.PAS example determines the position, 
size, and shape of the pie to be drawn. The pie is specified by the coor- 
dinates of its center point, and radius and starting angle. (If the example 
were using the DrawCartPie procedure, the starting point would be 
specified by an [X, Y] position.) 

The shape of the pie chart, like any other circle, is determined by its as- 
pect ratio — its height-to-width ratio. You can vary the shape of the pie 
chart by calling the SetAspect procedure. In addition, a global constant, 
AspectFactor, sets the system-dependent aspect ratio, so that an as- 
pect ratio of 1 .0 produces a true circle on a particular hardware screen. 
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The parameters InRadius and OutRadius specify the inside and outside 
endpoints of the radial label line. This label line relates a text and numer- 
ic label with a particular pie segment. InRadius and OutRadius are refer- 
enced to the edge of the pie chart. A value of 1 .0 puts the endpoint on 
the edge of the pie chart, a value of 0.5 puts the endpoint halfway 
between the edge and the center, and a value of 2.0 puts the endpoint 
at a distance of twice the radius out from the center of the chart. If both 
InRadius and OutRadius are 1 .0, the label line is one dot long, coincides 
with the edge of the pie chart, and, thus, for all practical purposes, is 
not drawn. 

The final parameters, Mode and Size, specify which labels, if any, are 
drawn, and their size. Mode allows four possibilities: no label, text label 
only, numeric label only, and both text and numeric label. Size specifies 
the scale of the label characters (multiples of 4x6 pixels). 

program OnePieDemo; 

{$1 typedef .sys} {these files must be} 

{$1 graphix.sys} {included and in this order} 

{$1 kernel. sys} 

{$1 windows. sys} 

{$1 circsegm.hgh} 

{$1 pie.hgh} 

procedure OnePieDem; 

var sum,xl,yl, Radius, Theta, InRadius, OutRadius: real; 
n , Mode , Size : integer ; 
arPieArray; 
back: byte; 
ch:char; 

begin 

ClearScreen; 
SetColorWhite; 

DefineWindow( 1,0,0, XMaxGlb,TMax£Lb) ; 

DefineHeader(l, 'A SIMLE PIE CHART' ) ; {set up a window} 

DefineWorld( 1,0, 1000, 1000,0) ; 

SelectWorld(l); 

SelectWindow(l); 

SetHeaderOn; 

SetBackground(O); 

DrawBorder; 
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n:=5; 



a[l 
a[2 
a[3 
a[4 
a[5 
a[l 
a[2 
a[3 
a[4 
a[5 



].area:=25; 

]. area: =17. 5; 

].area:=9.6; 

].area:=21; 

].area:=35; 

].text:='JAN.=' 

].text:='FEB.=' 

].text:='MAR.=' 

].text:='APR.=' 

].text:=*MAY='; 



{the number of pie segments} 
{initialize the pie array} 



a[ 1 ]. area : =-a[ 1 ]. area; 

xl:=500; 
yl:=500; 

Radius: =200; 
Theta:=60; 

SetAspect(l.O); 

InRadius:-=0.7; 
0utRadius:=1.25; 
Mode: =2; 
Size: =2; 

DrawPolarPie ( xl , yl , Radius , Theta , 



end; 

begin 

InitGraphic; 
OnePieDem; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 



{move the first segment outward} 
{set the center to mid screen} 

{set the start of the circle} 

{set the aspect ratio} 

{set the ends of the label line} 

{set to draw both label} 
{set to text size two} 

InRadius,OutRadius,a,n,Mode,Size) ; 
{draw the pie} 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 
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Figure 2-14: A Pie Chart (ONEPIE.PAS Example) 



Bar Charts 



Bar charts (histograms) are used to represent the way a given set of 
data changes over time. A bar chart displays a sequence of values as 
vertical bars, with each bar's height in proportion to the value associated 
with that bar. A bar chart is automatically generated by passing the ar- 
ray of the values to be displayed to the DrawHistogram procedure. The 
resulting bars are drawn adjacent to each other and always completely 
fill the width of the active window. The height of the bars is scaled by 
the world coordinate system active at the time. 

The demo program ONEHIST.PAS is an example of the DrawHistogram 
procedure. This program draws ten random-length bars across a win- 
dow that fills the screen. The procedure first fills the PlotArray with ten 
random values. The PlotArray is the same as that used to plot polygons, 
and therefore has two values in each array element (the X position and 
the Y displacement). The X value in this case is determined by the pro- 
gram, and the Y (vertical displacement) value is used by DrawHistogram. 

Next, a window is defined and selected that fills the screen, and a world 
coordinate system is defined and selected that will determine the vertical 
scaling of the bar lengths. The X dimension specification can take any 
value except 0, since it is corrected for by the DrawHistogram routine. 

The Hatch parameter specifies whether the bars are to be cross- 
hatched with slanting lines; HatchDen specifies the number of vertical 
pixels between each hatch line. The sign of HatchDen determines the 
direction of hatching; if it is negative, the first hatch line goes from lower 
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left to upper right (positive slope); if it is positive, the first hatch line goes 
from upper right to lower left (negative slope); hatching direction alter- 
nates with each consecutive bar. In the call to DrawHistogram, a nega- 
tive value for DisplyLen indicates that bars should be drawn from the Y 
zero axis (which is, in this case, at the bottom of the window). A positive 
value would specify that bars are always drawn from the bottom of the 
window, with negative values plotted as positive values. 

program OneHist; 

{$1 typedef .sys} {these files must be} 

{$1 graphix.sys} {included and in this order} 

{$1 kernel. sys} 

{$1 windows. sys} 

{$1 hatch. hgh} 

{$1 histogra.hgh} 

procedure HistoDem; 

var i , DisplyLen , HatchDen : integer ; 
a:PlotArray; 
r:real; 
ch:char; 
Hatch: boolean; 

begin 

DisplyLen: =10; {draw ten bars} 

for i:=0 to DisplyLen do {init the display array with random #'s} 
begin; 

a[i+l,2] :=random; 
end; 
SetColorWhite; {set up the window for the bar chart} 

SetBackground(O); 
SetHeaderOn; 

DefineWindow( 1,0,0, XMaxGlb.YMaxGlb) ; 
DefineHeader(l, 'A RANDOM BAR CHART WITH HATCHING 1 ); 
DefineWorld( 1,-10, 1.0, 10,0) ; 
SelectWorld(l); 
SelectWindow(l); 

DrawBorder; {draw the window} 

Hatch :=true; {enable hatching} 

HatchDen: =7; {draw hatch lines this far apart} 

DrawHistogram( a, -DisplyLen, Hatch, HatchDen); {draw the bar chart} 
end; 
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begin 

InitGraphic; 
HistoDem; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 
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Figure 2-15: A Bar Chart (ONEHIST.PAS Example) 



The following example program (PIEHISTO.PAS on the distribution disk) 
shows both a bar and pie chart displaying the same data. An example of 
how to label bar charts is also included. 



program PieHisto; 

{$1 typedef.sys} 
{$1 graphix.sys} 
{$1 kernel. sys} 
{$1 windows, sys} 
{$1 circsegm.hgh} 
{$1 pie.hgh} 
{$1 hatch. hgh} 
{$1 histogrm.hgh} 



{these files must be} 
{included and in this order} 
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procedure PieHistoDem; 

var sum,xl,yl,x2,y2,InRadius,0utRadius:real; 
i,n: integer; 
a:PieArray; 
brPlotArray; 
ch:char; 
NumText : WrkString; 

begin 



n:=5; 



a[l 
a[2 
a[3 
a[4 
a[5 
a[l 
a[2 
a[3 
a[4 
a[5 



]. area: =25; 
].area:=17.5; 
].area:=9.6; 
]. area: -21; 
].area:=35; 
]. text : = ' JAN. 
].text:='FEB. 
].text: = 'MAR. 
]. text : = * APR. 
].text:='MAY 



{the number of data points} 
{initialize the pie array} 



for i:=l to n do {init the histogram array} 
b[i,2]:=a[i].area; 

ClearScreen; 
SetColorWhite; 



DefineWindow( 1, 0.O.XMaxGlb.YMaxGSlb) ; 

DefineHeader(l, "BOTH A PIE AND A BAR CHART 1 ) ; 

SelectWindow(l); 

SetHeaderOn; 

SetBackground( ) ; 

DrawBorder; 



{set up a window} 



for i:=l to n do 



{type the info in the up-rt corner} 



begin 

GotoXT(60,4+i); 
write(a[i].text, '-' ); 
str(a[i] .area:6:2,NumText) 
write (NumText); 
end; 



{goto correct line} 
{type the label info} 
{format the numeric info} 
{type the numeric info} 
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DefineWindow(2, trunc(XMaxGlb/10) , tr\inc( YMaxGlb/10) , 

trunc(XMaxGlb*6/10) , trunc(YMaxGlb*7/10) ) ; 
DefineHeader(2, 'A PIE CHART' ); {set up a window} 

DefineWorld(2,0, 1000, 1000,0) ; 
SelectWorld(2); 
SelectWindow(2); 
SetHeaderOn; 
SetBackground(O); 
DrawBorder; 

a[ 1]. area :=-a[l]. area; {move the first segment outward} 

SetAspect(l.O); {set the aspect ratio} 

xl:=5O0; {set the center to mid screen} 

yl:=500; 

x2:=600; {set the start of the circle} 

y2:=350; 

InRadius:=0.7; {set the ends of the label lino} 

0utRadius:=1.25; 

Dr^wCartPie(xl,yl,x2,y2,InRadius,0utF?adius,a,n,2,l); {draw the pie} 

a[ 1]. area: =-a[l]. area; {reset the sign} 

DefineWindow(3,trunc(XMaxGlb/2) ,trunc(YMaxGlb/2) , 

trunc(XMaxGlb*9/10) , trunc(YMaxGlb*9/10) ) ; 
DefineHeader(3, 'A BAR CHART' ); {set up a window} 

Def ineWorld( 3 , , 60 , 10 , ) ; 
SelectWorld(3); 
SelectWindow(3); 
SetHeaderOn; 
SetBackground ( ) ; 
DrawBorder; 

DrawHistogram(b, n, true, 5 ) ; 

for i:=l to n do {draw the bar chart labels} 

begin 

DrawTextW((10/n)*(i-l),10,l, ' '+a[i].text); {draw the text} 
str(a[i].area:6:2,NumText); {format the number} 

DrawTextW( ( 10/n ) * ( i-1 ) , 16, 1 , ' ' +NumText ) ; {draw the number} 

end; 

end; 
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begin 

InitGraphic; 
PieHistoDem; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 



torn « m add b m chart 




Figure 2-16: Pie and Bar Chart Displaying Same Data 
(PIEHISTO.PAS Example) 

Summary of Pie and Bar Chart Routines 

DrawCircleSegment draws an arc of a circle with optional text and 
numeric labels 

DrawCartPie draws a pie chart using Cartesian coordinates 

DrawPolarPie draws a pie chart using polar coordinates 

DrawHistogram draws a bar chart 
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Plotting Curves 



Any curve that is made up of a series of points, usually connected by 
line segments, is called a polygon. By default (constant MaxPlotGIb), a 
polygon consists of a maximum of 100 points. If your application re- 
quires more points, the default for MaxPlotGIb can be changed, or, al- 
ternatively, multiple polygons can be used to create the final image. 
Because the resolution of a screen is limited, a smooth curve can usual- 
ly be made out of a small number of line segments. 



A Simple Example: Plotting a Sine Curve 

The following example program (ONEPOLY.PAS on the distribution disk) 
plots a smooth sine curve using the DrawPolygon procedure. This ex- 
ample uses 30 line segments to produce the curve. In this case, the full 
screen is used; on the standard IBM graphics screen, there are approxi- 
mately 20 pixels between the endpoints of the line segments. As can be 
seen from the graphics display output by this program, a smooth curve 
is drawn when this number of segments is used, with little evidence of 
where one line segment ends and another begins. 

DrawPolygon receives its input as X and Y coordinates in the array 
PlotArray. This array is two dimensional — that is, each point's sequence 
in the curve is specified by the. first dimension, and its X and /values 
are selected by the second dimension. For example the value in the ar- 
ray P/otArray [5,1] would be the X position of the 5th point, and the 
value in PlotArray[5,2] would be the /position. 

A symbol can be optionally placed at each vertex point on the curve. If 
the value used to specify the symbol type is negative, the symbols are 
not connected by lines. The size of the symbols, and whether lines are 
drawn from the vertices to the X axis, are also specified by parameters 
passed to the procedure. See the DrawPolygon procedure description in 
Chapter 3 for detailed information about these options. This example 
simply draws a single sine curve across the screen. The array to draw is 
passed to DrawPolygon (with instructions to draw from the first to last 
point in the array) with no symbols at the vertices, and the curve is 
drawn as a series of line segments that connect the vertices. 
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The PlotArray for DrawPolygon is filled by the GenerateFunction pro- 
cedure. Varying the value of n in this program varies the number of ver- 
tices in the curve. You can use the ONEPOLY.PAS example to experi- 
ment with the proper number of points needed to generate a smooth 
curve on your screen. In addition, you can draw a subset of the polygon 
by starting and ending the drawing on any element of this array; the in- 
dices of the desired start and end points are passed to the routine as 
parameters. 

program OnePolygon; 

{$1 typedef .sys} {these files must be} 

{$1 graphix.sys} {included in this order} 

{$1 kernel, sys} 
{$1 windows. sys} 
{$1 polygon. hgh} 

procedure PolygonDem; 

var n: integer; 
b, a: PlotArray; 
ch:char; 
xl,x2: integer; 

procedure GenerateFunction (var a, b: PlotArray; n: integer); 

var i: integer; {generate a sine polygon} 

delta: real; 

begin 

delta:=2*pi/(n-l); 
for i:=l to n do 
begin 
a[i,l]:=(i-l)*delta-pi; 
a[i,2]:=sin(a[i,l]); 
end; 
end; 
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begin 

ClearScreen; 

n:=30; 

GenerateFunction(a,b, n) ; 



{generate the polygon} 



{set up the screen} 



Def ineWindow( 1, 0, 0,XMaxGlb,TflfaxGlb) ; 
DefineHeader(l, 'SINE CURVE AS A POLYGON' ); 
Def ineWorld( 1 , -pi , 1 , pi , -1 ) ; 
SelectWorld(l); 
SelectWindow(l); 
SetBackground(O) ; 
SetHeaderOn; 
DrawBorder; 

DrawPolygon(a, l,n, 0,0,0); {draw the polygon} 

end; 



begin 

InitGraphic; 
PolygonDem; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 



SMECMUE AHP01V5M.. 




Figure 2-17: Plotting a Smooth Curve (ONEPOLY.PAS Example) 
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The Draw Axis Procedure 

In many graphics applications that illustrate numeric results, it is useful 
to display a ruler that indicates the values of the displayed results. The 
DrawAxis procedure is used to draw rulers (and accompanying X and Y 
axes) along the left and bottom edges of the area that contains the 
graph. The rulers are scaled to fit the active window. DrawAxis automat- 
ically creates a new subwindow, bounded by the rulers, where drawing 
will take place. The world coordinate system (defined by the 
DefineWorld procedure) now fits in this subwindow. 

Optional parameters passed to DrawAxis can provide a space between 
the rulers and the active window boundaries. This feature can also be 
used to provide space between legends or axis labels and the rulers, 
and/or to display multiple axes in one window. Other options can draw a 
border around the subwindow, turn the display of numeric labels and 
ruler tick marks on and off, draw zero X and Y axes, and select a line 
style for the axes. 

The rulers have a couple of characteristics you should understand if you 
are to use them effectively. First, and most important, ruler markings are 
spaced according to screen pixel spacing. This means that the numbers 
associated with the rulers are correct with respect to the curve, but do 
not necessarily mark the decimal (or other number system) locations 
relevant to your application. In other words, ruler labels do not neces- 
sarily increment by one, ten, or other standard unit. In addition, with a 
higher resolution screen, (such as with the Hercules card), there will be 
more markings than with the same rulers drawn using a standard IBM 
graphics card. 

The following example (ONEAXIS.PAS on the distribution disk) shows 
the simplest use of the DrawAxis procedure. This example defines a 
window that fills the whole screen, defines a world, and draws coordi- 
nate axes for the whole screen. 

program OneAxis; 

{$1 typedef.sys} {these files must be} 

{$1 graphix.sys} {included and in this order} 

{$1 kernel. sys} 

{$1 windows. sys} 

{$1 axis.hgh} 
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begin 

ClearScreen; 

SetColorWhite; 

SetBackground(O); 



{init screen} 



DefineHeader( 1, 'LABELED AXES' ) ; 
SetHeaderOn; 

Def ineWorld( 1 , -10 , 10 , 10 , -10 ) ; 
SelectWorld(l); 
SelectWindow(l); 
DrawBorder; 

DrawAxis(8,-7,0, 0,0,0, 0,0, true); 
end; 



{define the window} 



{draw it} 

{draw coordinate axis} 



begin 

InitGraphic; 
OneAxisDem; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 




Figure 2-18: Labeled Axes (ONEAXIS.PAS Example) 



GETTING STARTED 



63 



Plotting Curves 

Drawing a Sine Curve with Axes 

The following example (POLYAXIS.PAS on the distribution disk) com- 
bines the previous two examples to display a sine curve inside axes that 
are bounded by the screen edges. 

program OnePolygpn; 

{$1 typedef.sys} {these files must be} 

{$1 graphix.sys} {included in this order} 

{fl kernel. sys} 
{$1 windows. sys} 
{$1 axis.hgh} 
{$1 polygon. hgh} 

procedure PolygonDem; 

var n: integer; 
b,a:PlotArray; 
chrchar; 
xl,x2: integer; 

procedure GenerateFunction(var a,b:PlotArray;n: integer); 

var i: integer; {generate a sine polygon} 

delta: real; 

begin 

delta:=2*pi/(n-l); 
for i:=l to n do 
begin 
a[ i , 1 ] : = ( i-1 )*delta-pi ; 
a[i,2]:=sin(a[i,l]); 
end; 
end; 
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begin 

ClearScreen; 

n:=30; 



GenerateF\inction ( a , b , n ) ; 



{generate the polygon} 



DefineWindow( 1, 0, 0,MaxGlb,YMaxGlb) ; 
DefineHeader(l, 'SINE CURVE AS A POLYGON' ) ; 
DefineWorld( 1,-pi, l,pi,-l) ; 
SelectWorld(l); 
SelectWindow(l); 
SetBackground(O); 
SetHeaderOn; 
DrawBorder; 

DrawAxis(8, -8,0, 0,0, 0,0,0, false); 
DrawPolygon(a,l,n, 0,0,0); 
end; 



{set up the screen} 



{draw the axes} 
{draw the polygon} 



begin 

InitGraphic; 
PolygonDem; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 



SIHE CURUE: AS fl PDLV€DH ■- 




Figure 2-19: A Smooth Curve and Coordinate Axes 
(POLYAXIS.PAS Example) 
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Polygon Modification Routines 

There are several procedures that adjust the values in the PlotArray to 
translate (move), or rotate a polygon. These routines could be used for 
animation applications, to allow a single polygon to be used as the 
model for all the polygons that are to be subsequently moved about on 
the screen. 

The example program (MOVEPOLY.PAS on the distribution disk) uses 
the RotatePolygon and TranslatePolygon procedures to draw an arrow- 
head on the screen, enable the cursor keys to rotate it, and move it for- 
ward and backward in the direction pointed to by the arrow. To end pro- 
gram execution, press the space bar. 

The program initializes the polygon as an arrowhead in the center of the 
world, pointing towards the top of the screen. RotatePolygon rotates 
the polygon around its present "center of mass". This means that the 
polygon rotates around itself, rather than the origin (point [0,0]) of the 
coordinate system. To rotate the polygon about the origin (or any other 
point), use the RotatePolygonAbout procedure. 

The TranslatePolygon procedure is used to move the arrowhead in the 
direction it is pointing. When the polygon is rotated, new increment 
values are used to translate the polygon in the new direction. 

To move a polygon, you must first erase the old image before redrawing 
the new one. To do this, set the drawing color to black with the 
SetColorBlack procedure before calling DrawPolygon with the informa- 
tion from the last polygon. 

There are no limits on where the polygon can be moved. Since the po- 
lygon is positioned using real coordinates, it would take a long time for 
this program to move the object to the end of the real number system. 
However, it does not take long to move the arrowhead off the screen. 
To make the program display the polygon in the world correctly, and to 
prevent the arrow from moving off the screen and destroying part of 
program memory, this program activates clipping by assigning a nega- 
tive value to the last point to be displayed when calling DrawPolygon. 
When the arrowhead goes off the screen, DrawPolygon only draws the 
part of the line that fits the defined world. 
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program MovePolygon; 
{$1 typedef.sys} 
{$1 graphix.sys} 
{$1 kernel. sys} 
{$1 windows. sys} 
{$1 polygon. hgh} 
{$1 modpoly.hgh} 



{these files must be} 
{included in this order} 



var ArrowAngle: integer; 
Ch: char; 
Arrow: PlotArray; 

QirrX,CurrY,IncrX,IncrY,Size, Speed: real; 
Arrowlncr: array[0. .7,1. .2] of real; 



procedure 
begin 

Arrow[l, 
Arrow[l, 
Arrow[2, 
Arrow[2, 
Arrow[3, 
Arrow[3, 
Arrow[4, 
Arrow[4, 
Arrow[5, 
Arrow[5, 
end; 

procedure MakeMoveTable; 
begin 

Arrowlncr [0,1] 
Arrowlncr [0,2] 
Arrowlncr [1,1] 
ArrowIncr[l,2] 
Arrowlncr [2,1] 
Arrowlncr [2, 2] 
ArrowIncr[3, 1] 
ArrowIncr[3,2] 
ArrowIncr[4, 1] 
ArrowIncr[4,2] 
Arrowlncr [5,1] 
Arrowlncr [5, 2] 
Arrowlncr [6,1] 
Arrowlncr [6, 2] 
Arrcwlncr[7,l] 
ArrowIncr[7,2] 
end; 



MakeArrow; 

1]:=0; 

2]:=0; 

l]:=Size; 

2]:=-Size; 

1]:=0; 

2]:=Size; 

1]:=-Size; 

2]:=-Size; 

1]:=0; 

2]:=0; 



:=0; 
:-l; 
:— 1; 
:=1; 
:— l: 
:=0; 
:— l; 
:— l; 
:=0; 
:— 1; 
:=1; 
:— l; 
:=1: 
:=0 
:=1 
:=1 



{PlotArray init for the arrowhead} 



{component velocities for radial moves} 
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procedure MoveForward; {routine to move polygon forward} 

begin 

SetColorBlack; {draw over old polygon to erase it} 

DrawPolygon( Arrow, 1,-5,0,0,0) ; 

CurrX:=CurrX+IncrX; {move to new position} 

CurrY: =CurrY+IncrY; 

TranslatePolygon(Arrow,5,IncrX,IncrY) ; 

SetColorWhite; {draw polygon in new position} 

DrawPolygon ( Arrow , 1 , -5 , , , ) ; 
end; 

procedure MoveBack; {routine to move polygon back} 

begin 

SetColorBlack; {same as above} 

DrawPolygon (Arrow, 1,-5,0,0,0) ; 

CurrX : =CurrX-IncrX ; 

CurrY: =CurrY-IncrY; 

TranslatePolygon (Arrow, 5, -IncrX, -IncrY) ; 

SetColorWhite; 

DrawPolygon ( Arrow, 1,-5,0,0,0); 
end; 

procedure TurnLeft; {rotate polygon counter-clockwise} 

begin 

SetColorBlack; {undraw old polygon} 

DrawPolygon(Arrow,l,-5,0,0,0) ; 

RotatePolygon(Arrow,5,45); {rotate it 45 degrees} 

ArrowAngle : =ArrowAngle+l ; 

if ArrowAngle>7 then ArrowAngle :=0; 

IncrX: =Speed * ArrowIncr[ArrowAngle,l]; {get new velocity} 

Incry:=Speed * ArrowIncr[ ArrowAngle, 2]; 

SetColorWhite; {draw rotated polygon} 

DrawPolygon ( Arrow, 1,-5,0,0,0); 
end; 

procedure TurnRight; {rotate polygon clockwise} 

begin 

SetColorBlack; {same as above} 

DrawPolygon ( Arrow, 1,-5,0,0,0); 

RotatePolygon(Arrow,5, -45) ; 

ArrowAngle : =ArrowAngle-l ; 

if ArrowAngle<0 then ArrowAngle: =7; 

IncrX: =Speed * ArrowIncr[ArrowAngle,l]; 

Incry:=Speed * ArrowIncr[ArrowAngle,2]; 

SetColorWhite; 

DrawPolygon ( Arrow , 1 , -5 , , , ) ; 
end; 
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begin 

InitGraphic; 

DefineWindow( 1, 0,0,HtoxGlb, YMaxGlb) ; 

DefineWorld( 1, -1000, 1000, 1000,-1000) ; 

SelectVforld(l); 

SelectWindow(l); 

SetBackground(O); 

Size: -100; 

Speed: -30; 

CurrX:=0; 

CurrY:-0; 

ArrowAngle:=0; 

IncrX:=0; 

IncrY: -Speed; 



{initialize the graphics system} 

{give it a world coord, system} 

{select its world} 

{select window} 

{give it a black background} 



MakeArrow; 

MakeMoveTable; 

DrawPolygon( Arrow, 1,5,0,0,0); 



{make the arrowhead} 
{make the move table} 
{draw it pointing up} 



repeat 

read(Kbd,Ch); 
case ord(Ch) of 

72 : MoveForward; 
75 : TurnLeft; 
77 : TurnRight; 
80 : MoveBack; 
end; 
until Ch-' '; 
LeaveGraphic; 
end. 



{read the keystroke} 

{up arrow?} 
{left arrow?} 
{right arrow?} 
{down arrow?} 

{'space' char exits program} 
{leave the graphics system} 



Finding a World to Fit a Poiygon 

In many applications that involve curves, the final form of the graph that 
is to be displayed is not known until the program is run. In these cases, 
the FindWorld procedure can be used to find the world coordinate sys- 
tem that will exactly fit the curve, or that is a specified percentage larger 
than the curve. FindWorld ensures that the area in which your curve is 
displayed is of the proper dimensions for your application. This pro- 
cedure, in conjunction with the DrawAxis and DrawPolygon procedures, 
can produce a tailormade graphic presentation. 
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The FindWorld procedure always sets up a world with its lowest coordi- 
nates at the upper left corner of the window. The following code can be 
used after a call to FindWorld to turn the world coordinate system up- 
side down: 

with World[I] do {integer I is the world being changed} 
begin 

Temp:=Yl; {Temp is a real variable} 

Y1:=Y2; 

Y2:=Temp; 
end; 

This must be done before selecting the world! (You can also flip the 
coordinate system horizontally by swapping the X coordinates X1 and 
X2.) 

Note: World coordinates in earlier versions of the Graphix Toolbox 
defined the Y axis using the Cartesian coordinate system. If you have a 
program written for an earlier version, you must switch the two Y 
parameters in each instance of DefineWorld, so that, for example, 

DefineWorld(WorldNumber,Xl, Y1,X2,Y2) ; 

becomes 

DefineWorld(WorldNumber,Xl, Y2.X2, Yl ) ; 

The following program (FINDWRLD.PAS on the distribution disk) demon- 
strates FindWorld and some of the more advanced features of the 
DrawPolygon and DrawAxis routines. This program draws five random 
points on the screen with star symbols at each of the vertices, and axis 
rulers to show the scale of the numbers. 

program FindWorld; 

{$1 typedef.sys} {these files must be} 

{$1 graphix. sys} {included in this order} 

{$1 kernel. sys} 
{$1 windows. sys} 
{$1 findwrld.hgh} 
{$1 axis.hgh} 
{$1 polygon. hgh} 
{$1 spline. hgh} 
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procedure FindWorldDem; 

var x:real; 

dx,dy,i,n, lines, scale: integer; 
XL, Y1,X2,Y2: integer; 
b,a:PlotArray; 

begin 

DefineWindow(1.0,0,XMaxGlb,YMaxGlb); {define windows as whole screen} 
DefineWindow(2,0,0,XMaxGlb,YMaxGlb) ; 



DefineWorld( 1,0, 1000, 1000, 0) ; 

DefineHeader(2, 'A POUND WORLD' ); 

SelectWindow(2); 

SetHeaderOn; 

n:=10; 

for i:=l to n do 
begin 

a[i,l]:=i-l; 
a[ i , 2 ] : =random-0 . 5 ; 
end; 

FindWorld(2,a,n, 1,1.08); 

SelectWindow(2); 
DrawBorder; 

dx:=-8; 
dy:=7; 
XI: =3; 
Yl:=5; 
X2:-25; 
Y2:=10; 
lines :=0; 
scale:=0; 



{give a world to the screen} 
{window where curve will go} 

{fill polygon array} 



{make world 2 the right size} 
{select it and draw border} 

{draw axis inset from window edge} 



SetLineStyle(O); 

DrawAxis(dx,dy,Xl,Yl,X2,Y2, lines, scale, false) ; 

DrawPolygon(a, l,n,7,2,0) ; 



{draw curve as solid line} 



SelectWorld(l); 
SelectWindow(l); 



{select outside window} 
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DrawTextW(720,450, 1, A [ '7@2 The data' 
DrawTextW(720,550, 1, ' — The curve' ) ; 



{print legend} 



end; 



begin 

InitGraphic; 
FindWorldDem; 
repeat until KeyPressed; 
LeaveGraphic; 
end. 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 



The special features of the DrawAxis procedure are used to make a 
border around the drawing, and inset it from the edges of the active win- 
dow. The inset feature can be used to make room for labels and 
legends, and to allow multiple drawings in one window. 




# lis data 

•• I in curue 



Figure 2-20: Finding a World for a Polygon (FINDWRLD.PAS Example) 
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Solving Curve-Fitting Problems 



This section introduces you to the Spline and Bezier procedures. Both 
these procedures use polynomials to create curves. However, they are 
used for different reasons: the Spline procedure is used for fitting 
smooth curves to a given configuration of points, while Bezier is used to 
find the points that will create a desired curve. The Spline procedure is 
appropriate for many curve-fitting applications (for example, creating a 
smooth curve that intersects a set of experimental data), while Bezier is 
the procedure to use for line modeling and generating curves of arbitrary 
shape. 



Fitting a Curve with the Spline Procedure 

The curve produced by the FINDWRLD.PAS example is quite jagged; 
this is because the data points are connected by straight lines. The 
Spline procedure allows you to take the same set of points and find a 
smooth curve to fit that configuration of points. The general method 
used to find the function that will produce such a curve is called interpo- 
lation; using interpolation, you can generate the "missing" points that 
will smooth the curve. 

The simplest way to interpolate a given set of points with a curve is the 
following: given n points [X1,Y1],[X2,Y2],[X3,Y3]...[Xn,Yn], we can in- 
terpolate the points with the n'th degree polynomial: 

(x-x 2 ) • • ■ (x-x n ) (*-*, )(*-*,) • • • (x-x„) 

Pnix) = y x — — — — — — + y 



(x t -x 2 ) • ■ • (xi-x„) (x 2 -Xi)(x2-Xj) • • ■ (x 2 -x„) 

(x-x t ) ■ • • (x-x n _ x ) 



+ JV 



(X n X\) • • • (x n x n _ l ) 



This polynomial is known as the Lagrange Interpolating Polynomial, and 
it generates an exact curve that will pass through all the points. Howev- 
er, there is a problem inherent in this method of interpolation: it requires 
a formula with the same number of elements as the number of points to 
be intersected. Interpolating 90 points, for example, will yield a polyno- 
mial of degree 90, which is quite unwieldy. 

A second, simpler approach to the problem is to fit a separate curve in 
each interval [x^.x^, so that the curves meet with no jaggedness or ir- 
regularity. In other words, the function consists of pieces of polynomials 
that are patched together. The method used is known as "Cubic 
Splines". Using this method, 3rd degree polynomials are used in each 
interval and patched together to form a "smooth" curve. 
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The Turbo Graphix Spline procedure uses this technique to interpolate 
the points that make up the curve. To produce the curve, the initial set 
of points is passed to the Spline procedure in the PlotArray, along with 
information about where to start and stop the interpolation, and a 
second PlotArray to receive the points of the smooth curve. 

The following example (INTERP.PAS on the distribution disk) is essen- 
tially identical to the FINDWRLD.PAS example, except that an additional 
interpolated curve is plotted. Since the points are plotted at random, 
running the program several times will give you a good feel for how 
splines behave. 

program Interpolate; 

{$1 typedef.sys} {these files must be} 

{$1 graphix. sys} {included in this order} 

{$1 kernel. sys} 
{$1 windows. sys} 
{$1 findwrld.hgh} 
{$1 axis.hgh} 
{$1 polygon. hgh} 
{$1 spline. hgh} 

procedure SplineDem; 

var x, temp: real; 

dx,dy, i, n, m, lines, scale : integer; 

Xl,Yl,X2,Y2:integer; 

b, a: PlotArray; 

begin 

DefineWindow(1.0,0,XMaxGlb,YMaxGlb) {define both windows} 

rjefineWindow(2,0,0,XMaxGlb,'XMaxGlb); { as whole screen} 
DefineWorld( 1,0, 1000, 1000,0); {give a world to the screen} 

DefineHeader(2, 'A spline interpolation'); {window where curves will go} 
SetHeaderOn; 

n:=12; {fill polygon array} 

for i:=l to n do 
begin 
a[i,l]:=i-l; 
a[ i , 2 ] : =random-0 . 5; 
end; 
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m:=50; 

spline(a,n,a[2,l],a[n-l,l],b,m); 
FindWorld(2,b,m, 1,1.08); 
with World[2] do 
begin 

temp:=Yl; 

Y1:=Y2; 

Y2:=temp; 
end; 
SelectWindow(2); 
DrawBorder; 



{generate spline with 50 points} 

{make world 2 the right size} 
{flip the found world vertically} 



=-8; 

=7; 

=3; 

=5; 

=25; 

=10; 

lines :=0; 

scale :=0; 



{select it and draw border} 



{draw axis inset from window edge} 



SetLineStyle(l); {draw initial curve as dotted lino} 

DrawAxis(dx,dy,Xl ) Yl,X2,Y2,lines,scale, false) ; 
DrawPolygon(a,2,n-l,7,2,0); {don't draw the endpoints} 

SetLineStyle(O); {draw interpolated curve as solid lint 

DrawAxis(0,0,Xl,Yl,X2,Y2,0,0, false) ; 

DrawPolygon(b,l,-m,0,0,0); {spline is not good on endpoints} 



SelectWorld(l); 
SelectWindow(l); 



DrawTextW(730,400, 1, A [ '7@2 The data' ) ; 
DrawTextW(730,500, 1, ' . . The initial polygon 1 ) ; 
DrawTextW(730,600, 1, ' The interpolated values' ) ; 



end; 

begin 

InitGraphic; 
SplineDem; 

repeat until KeyPressed; 
LeaveGraphic; 
end. 



{select outside window} 

{print legend} 



{initialize the graphics system} 
{do the demo} 

{wait until a key is pressed} 
{leave the graphics system} 
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' A spline interpolation 
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Figure 2-21: Finding a Smooth Curve with Cubic Splines 
(INTERP.PAS Example) 



Modeling a Curve with the Bezier Procedure 

The Bezier procedure uses polynomials to solve the opposite problem 
that the Spline procedure handles: finding a set of points that will gen- 
erate a predetermined curve. Bezier polynomials are defined by a given 
set of guiding (control) points. With the Bezier procedure, you continual- 
ly redefine these control points so that they "pull on" the curve until it is 
of the desired shape. Once the guiding points are defined, if you have 
some talent for mathematics, you can easily find the equations for the 
corresponding Bezier polynomials that will draw the curve — that is, the 
algebraic formula for the curve drawn by this procedure. In addition, you 
can then use these points of the solution to plot the curves as polygons 
in other windows, using different coordinate systems, or on other 
screens on different computer systems. 

The Bezier polynomial takes the following form: 

m 

p x (t) = ^crt i (\-tr- i x i 

/ = 
m 

( = 

where C' m is the number of combinations of m objects taken /' at a time. 
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The following example (BEZIDEMO.PAS on the distribution disk) shows 
you how to use a set of control points to generate a desired curve. This 
technique is extremely useful for line modeling and some architectural 
applications. To illustrate the flexibility of the Bezier procedure, run this 
example program and try to make it loop twice. 

program BeziDemo; 

{$1 typedef .sys} {these files must be} 

{$1 graphix.sys} {included and in this order} 

{$1 kernel. sys} 

{$1 windows. sys} 

{$1 axis. hgh} 

{$1 polygon. hgh} 

{$1 bezier. hgh} 

procedure ClearToEol; {proc to clear to end of line} 

var i: integer; 

begin 

for i:=l to 80 do write( ' ' ); 
end; 

procedure BezierDem; 

var result , i , MaxControlPoints , MaxIntPoints : integer ; 
dummyx , dummyy : real ; 
a,b:PlotArray; 
break.-boolean; 
DummyS , Temp2 , Temp : wrkstring; 

begin 

MaxControlPoints: =7; {initialize everything} 

MaxIntPoints : =15 ; 

a[l,l]:=l;a[2,l]:=1.5;a[3,l]:=2;a[4,l]:=2.5;a[5,l]:=3;a[6,l]:=4; 
a[7,l]:=5;a[l,2]:=2;a[2,2]:=1.5;a[3,2]:=l;a[4,2]:=2.5;a[5,2]:=4; 
a[6,2]:=4.5;a[7,2]:=5; 

ClearScreen; {set up screen} 

SetColorWhite; 

DefineWorld( 1,0, 7. 0,6.33,0); {set world so rulers are good} 

SelectWorld(l); 

DefineWindow(l,0,0,XMaxGlb,17*YMaxGlb div 20); 
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SelectWindow(l); 

SetBackground ( ) ; 

DrawBorder; 

DrawAxis(7,-7,0, 0,0, 0,0,0, false); 

break :=false; {init exit flag} 

repeat 

SetLinestyle(l); {draw polygon between points} 

DrawAxis(0, 0,0, 0,0, 0,0,0, false); {do this so it lines up ok (no text)} 
DrawPolygon ( a , 1 , MaxControlPoints ,4,2,0); 

bezier(a,MaxControlPoints,b,MaxIntPoints); {do bezier operation} 

SetLinestyle(O); {plot it} 

DrawAxis(0, 0,0, 0,0, 0,0,0, false); 
DrawPolygon ( b , 1 , MaxIntPoints ,0,0,0); 



{clear out old text} 



repeat 

gptoxy(l,24) 
ClearToEol; 
gptoxy(l,25) 
ClearToEol; 
gptoxy(l,23) 
ClearToEol; 

gptoxy(l,23); {get point to change} 

write ( 'Enter the number of the point to change : ' ); 
gptaxy(43,23); 
read (Temp); 
val ( Temp , i , result ) ; 
until i in [0. .MaxControlPoints]; 

if i>0 then 
begin 
repeat 

gptoxy(l,24); {get new values for x and y} 

write ('Old position : [ ' ,a[i,l]:4:2, ' , ' ,a[i,2]:4:2, ' ]' ); 

gptaxy(40,24);write( ' New position x: '); 

gotoxy(60,24); 

read(DummyS); 

while DumnyS[l]=' ' do delete (DummyS, 1,1); 

Temp:=DummyS; 

gptoxy(40,25);write(' New position y: '); 

gptoxy(60,25); 
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read(DunmyS) ; 

while DummyS[l]=' ' do delete (DunrayS, 1,1); 
Temp2:=I>inin^;val(Tenp,dummyx, result) ;val(Tenp2,dummyy, result) 
until ( (dunmyx>=XlWldGlb) and (dummyx<=X2WldGlb)) 
and ( (dunmyy>=YlWldGlb) and (dummyy<=Y2WldGlb)); 

SetLinestyle(l); {undraw old curve} 

SetColorBlack; 

DrawAxis(0, 0,0, 0,0, 0,0,0, false); 
DrawPolygon(a, l.MaxControlPoints, 4,2,0) ; 
SetLinestyle(O); 

DrawAxis(0, 0,0, 0,0, 0,0,0, false); 
DrawPolygon(b, l,MaxIntPoints, 0,0,0) ; 
a[ i , 1 ] : =dunmyx; a[ i , 2 ] : =dunmyy ; 
SetColorWhite; 
end 
else break :=t rue; {done?} 

until break; 
end; 



begin 

InitGraphic; 
BezierDem; 
LeaveGraphic; 
end. 



{initialize the graphics system} 

{do the demo} 

{leave the graphics system} 
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Figure 2-22: Finding Points to Fit a Smooth Curve of Predetermined Shape 
(BEZIDEMO.PAS Example) 
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Summary of Polygon/Curve Routines 

Bezier computes a smooth curve of predetermined shape from a set of 
control points 

DrawAxis draws X and Y axes with ruler markings 

DrawPolygon draws a polygon 

FindWorld finds a world coordinate system to fit a given polygon 

RotatePolygon rotates a polygon about its center of gravity 

RotatePolygonAbout rotates a polygon about a given point 

Spline computes a smooth curve from a set of control points 

TranslatePolygon moves a polygon vertically and horizontally 

Screens 

There are two types of screens available for drawing with the Turbo 
Graphix Toolbox: the displayed screen, and a RAM (virtual) screen in 
memory. Turbo Graphix routines allow you to save and load either of 
these screens to and from disk, and restore them when you need them. 
You can also send images from either screen to your printer, and swap 
the contents of one screen with the contents of the other. 

Saving and Loading Screens 

Use the SaveScreen procedure to store the active screen as a file on 
disk. The single string parameter passed to the routine specifies the file 
name in which to save the screen contents. If a file with the same name 
already exists, it is overwritten. When you want to display the screen 
again, LoadScreen retrieves the screen from the file specified by its file 
name. 
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Both SaveScreen and LoadScreen use a format that is screen-type- 
specific; this means that a screen saved or loaded in a system with one 
graphics card may not keep its integrity if you attempt to retrieve or 
save it later on a system with another graphics card. This is also true 
with the LoadWindowStack and StoreWindowStack procedures; win- 
dow stacks are not necessarily compatible between different versions of 
the Turbo Graphix Toolbox. However, there is no incompatibility 
between individual windows; you can safely store or load a window us- 
ing the LoadWindow and StoreWindow procedures from one graphics 
screen type to another with no problems. 

The following program example (SCREENIO.PAS on the distribution 
disk) demonstrates saving and loading a screen; included in this exam- 
ple is a routine that draws a Sierpinski curve. This screen image is 
stored to disk as file DEMO. PIC, the screen is cleared, and the image 
is read back to the screen. SaveWindow/LoadWindow and 
SaveWindowStack/LoadWindowStack can also be tested with this ex- 
ample. Simply substitute their names for the SaveScreen and 
LoadScreen procedures, and make sure the data you want to save and 
load is available. 

program ScreenIO; 

{$1 typedef.sys} {these files must be} 

{$1 graphix. sys} {included in this order} 

{$1 kernel. sys} 

procedure Sierpinski; 

const n=5; 

var i,h,x,y,xO,yO:integer; 
sec: boolean; 

procedure plot; {draw a line} 

begin 

DrawLine(x,y,xO,yO) ; 
xO:=x; 
yO:=y; 
end; 
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procedure b(i: integer); forward; {forward references for recursion} 
procedure c(i: integer); forward; 
procedure d(i: integer); forward; 



procedure a(i: integer); 



{first recursive procedure} 



begin 

if i>0 then 
begin 

a(i-l); 
x:=x+h; 
y:=y-n; 
plot; 
b(i-l); 
x:=x+2*h; 
plot; 
d(i-l); 
x:=x+h; 
y:=y+n; 
plot; 
a(i-l); 
end; 
end; 



procedure b; 



{second recursive procedure} 



begin 

if i>0 then 
begin 

b(i-l); 
x:=x-h; 
y:=y-h; 
plot; 
c(i-l); 
y:=y-2*h; 
plot; 
a(i-l); 
x:=x+h; 
y:=y-h; 
plot; 
b(i-l); 
end; 
end; 
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procedure c; 



{third recursive procedure} 



begin 
if i>0 then 
begin 

c(i-l); 
x:=x-h; 
y:=y+h; 
plot; 
d(i-l); 
x:=x-2*h; 
plot; 
b(i-l); 
x:=x-h; 
y:=y-h; 
plot; 
c(i-l); 
end; 
end; 



procedure d; 



{last recursive procedure} 



begin 

if i>0 then 
begin 

d(i-l); 
x:=x+h; 
y:=y+h; 
plot; 
a(i-l); 
y:=y+2*h; 
plot; 
c(i-l); 
x : =x-h; 
y:=y+h; 
plot; 
d(i-l); 
end; 
end; 
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procedure Dolt; 



{sierpinski main procedure} 



begin 

i:=3; 

h:=16; 

x0:=30; 

y0:=240; 

repeat 

i:=i+l; 

xO:=xO-h; 

h:=h div 2; 

yO:=yO+h; 

x:=xO; 

y:=yO; 

a(i-l); 

x:=x+h; 

y:=y-h; 

plot; 

b(i-l); 

x:=x-h; 

y:=y-h; 

plot; 

c(i-l); 

x:=x-h; 

y:=y+h; 

plot; 

d(i-l); 

x:=x+h; 

y:=y+h; 

plot; 
until i=n; 
end; 



begin 

SetHeaderOn; 

DefineWorld( 1,-3,258,258,-3) 
SelectWorld(l); 
SelectWindow(l); 
Drawfiorder; 
Dolt; 
end; 



{sierpinski} 



84 



Turbo Graphix Toolbox Owner's Handbook 



Screens 



begin 

InitGraphic; {initialize the graphics system} 

DefineHeader(l, 'DEMONSTRATE SCREEN SAVE AND READ TO/FROM DISK 1 ) ; 
SetHeaderOn; {give it a header} 

Sierpinski; {do the curve} 

SaveScreen( 'DEMO. PIC ); {save the screen to disk} 

ClearScreen; {clear the screen} 

Delay (1000); {delay so hard or RAM disk users can see the action} 
LoadScreen( 'DEMO. PIC); {retrieve it from disk} 

repeat until KeyPressed; {wait until a key is pressed} 

LeaveGraphic; {leave the graphics system} 

end. 



Printing Screens 

There are two ways to print screen images. You can either use the Tur- 
bo Graphix HardCopy procedure, or the existing screen printing facility 
of your computer. 

The HardCopy procedure prints screen images on any printer compati- 
ble with the Epson MX, RX, or FX series. Depending on the printer 
used, several width formats are available. These range from 640 points 
across the page to 1 920 points. Since the standard IBM color graphics 
screen is 640 pixels wide, one screen will exactly fit across the page if 
the printer is able to print in the lowest resolution mode. 

Some printers do not support all the available modes. For instance, the 
standard IBM, Epson MX-80-compatible printer will only print in the 
960-points-per-line mode (mode 1). If you select any other mode for this 
printer, it will never enter graphics mode and will attempt to print the 
graphics screen in text characters. 

Because of the different resolutions that are possible with HardCopy, 
the horizontal-to-vertical proportions (aspect ratio) of some images may 
be different on the screen than when the images are printed. Experiment 
with your printer and the resolution modes available to it to find what 
works best for you. 

There is another way to print screen images using an IBM-compatible 
printer. First, install the graphics print routine that comes with the com- 
puter. Usually, this is done by running the system program 
GRAPHICS.COM that is on the MS-DOS system disk. Then, when you 
want to print a screen image, simply press the PrtSc key; on some key- 
boards, you must also press the Shift key. 
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There are a couple of advantages to using this program for printing 
screens. One is that it works on all Epson-like printers, and another is 
that it prints the image down the page rather than across it. The screen 
image fills the whole sheet, and the aspect ratio of the image is very 
close to that of the screen. Since the image is so large, fine details of 
the drawing look sharp and clear. 

The following example program (SCRNPRNT.PAS on the distribution 
disk) prints out the screen image used in the SCREENIO.PAS example, 

program ScreenIO; 

{$1 typedef.sys} {these files must be} 

{$1 graphix.sys} {included in this order} 

{$1 kernel. sys} 

procedure Sierpinski; 

const n=6; 

var i,h,x,y,xO,yO:integer; 
sec: boolean; 

procedure plot; {draw a line} 

begin 

DrawLine(x,y,xO,yO) ; 
xO:=x; 
yO:=y; 
end; 

procedure b(i: integer); forward; {forward references for recursion} 

procedure c(i: integer); forward; 

procedure d(i: integer); forward; 

procedure a(i: integer); {first recursive procedure} 

begin 

if i>0 then 
begin 

a(i-l); 

x:=x+h; 

y:=y-h; 

plot; 

b(i-l); 

x:=x+2*h; 

plot; 

d(i-l); 
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x:=x+h; 
y:=y+h; 
plot; 
a(i-l); 
end; 
end; 



Screens 



procedure b; 



{second recursive procedure} 



begin 

if i>0 then 
begin 

b(i-l); 
x:=x-h; 
y:=y-h; 
plot; 
c(i-l); 
y:=y-2*h; 
plot; 
a(i-l); 
x:=x+h; 
y:=y-h; 
plot; 
b(i-l); 
end; 
end; 



procedure c; 



{third recursive procedure} 



begin 

if i>0 then 
begin 

c(i-l); 

x:=x-h; 

y:=y+h; 

plot; 

d(i-l); 

x:=x-2*h; 

plot; 

b(i-l); 

x:=x-h; 

y:=y-h; 

plot; 

c(i-l); 
end; 
end; 
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procedure d; 



{last recursive procedure} 



begin 
if i>0 then 
begin 

d(i-l); 
x:=x+h; 
y:=y+h; 
plot; 
a(i-l); 
y:=y+2*h; 
plot; 
c(i-l); 
x:=x-h; 
y:=y+h; 
plot; 
d(i-l); 
end; 
end; 



procedure Dolt; 



{sierpinski main procedure} 



begin 

i:=3; 

h:=16; 

x0:=30; 

y0:=240; 

repeat 

i:=i+l; 

xO:=xO-h; 

h:=h div 2; 

yO:=yO*h; 

x:=xO; 

y:=yO; 

a(i-l); 

x:=x+h; 

y.=y-h; 

plot; 

b(i-l); 

x:=x-h; 

y:=y-h; 

plot; 
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c(i-l) 
x:=x-h 
y:=y+h 
plot; 
d(i-l); 
x:=x+h; 
y:=y+h; 
plot; 
until i=n; 
end; 

begin {sierpinski} 

SetHeaderOn; 

DefineWorld( 1, -3,258, 258, -3 ) ; 

SelectWorld(l); 

SelectWindow(l); 

DrawBorder; 

Dolt; 
end; 

begin 

InitGraphic; {initialize the graphics system} 
DefineHeader(l, ' DEMONSTRATE SCREEN FEINTING ' ); {give it a header} 
SetHeaderOn; 

Sierpinski; {do the curve} 

HardCopy( false, 1); {print it} 

repeat until KeyPressed; {wait until a key is pressed} 

LeaveGraphic; {leave the graphics system} 
end. 
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Chapter 3 

TECHNICAL REFERENCE 



This chapter provides detailed information about all the routines con- 
tained in the Turbo Graphix Toolbox. The first section gives an overview 
of the modular files that you'll need to include in your graphics applica- 
tion programs, along with a sample program. The following section 
defines and describes the constants and types used in the Turbo Gra- 
phix procedures, the third section provides a quick reference guide to 
Turbo Graphix routines, and the final section describes all the functions 
and procedures contained in the package. 



Turbo Graphix Files 

Turbo Graphix Toolbox is supplied on the distribution disk as an assort- 
ment of Turbo Pascal source files that you will need to "include" in your 
application program. These files are organized as modules to allow you 
to choose only the files you need for compilation into your final program. 

If your system is equipped with a Hercules or IBM graphics card, the 
Turbo Graphix distribution disk will contain some files that are specific to 
your graphics card or computer system. Such files are named by a 
filename with an extension (.HRC for Hercules, .IBM for IBM) that indi- 
cates the graphics card the file is designed for. For instance, there is a 
GRAPHIX.IBM file that contains procedures for drawing, loading, and 
storing IBM screens, and a GRAPHIX.HRC file that contains the same 
procedures for Hercules screens. You must copy the GRAPHIX file writ- 
ten for your hardware (supplied on the distribution disk) onto the 
GRAPHIX.SYS file. This is done by invoking the Turbo Graphix batch 
program, i.e., type tginst hgc or tginst ibm. Failure to do so may cause 
malfunctioning of Turbo Graphix programs. 

Basic System Files 

The following files must be included in all Turbo Graphix applications, 
since they contain the global variable declarations, drawing primitives, 
and system routines that are necessary for drawing. The files must be 
included in the order given below. 
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TYPEDEF.SYS Variable declarations for the Turbo Graphix Toolbox 

GRAPHIX.SYS Variables and routines for basic drawing, and for load- 
ing and storing screens 

KERNEL.SYS Primitives for control and initialization of the Turbo 
Graphix Toolbox 



Supplemental System Files 

These files are necessary for applications that use windows, text, or er- 
ror messages. The only file that you have to include yourself is the 
WINDOWS.SYS file; the other files listed here will be used by your appli- 
cation automatically if they are needed. 

WINDOWS.SYS Routines for moving, loading and storing windows 

8X8.FON High-resolution font for IBM 

1 4X9.FON High-resolution font for Hercules 

8x9.FON High-resolution font for Zenith 

4X6. FON Turbo Graphix font 

ERROR. MSG Error message text 

High-Level Command Files 

The high-level routines are necessary for more complex graphics appli- 
cations; you need only include the files you need for your particular ap- 
plication. All of the high-level files utilize the procedures contained in the 
basic system files; you must therefore include those files in order to util- 
ize the high-level procedures. 

Some of these high-level procedures rely on or work in conjunction with 
each other; in such cases, all the associated routines must be included 
in your application in the correct order. For instance, HISTOGRAM. HGH 
uses AXIS.HGH and PIE.HGH uses CIRCSEGM.HGH. To use either 
HISTOGRAM.HGH or PIE.HGH, you must first include the other high- 
level files that they use. Refer to specific routines listed in the final sec- 
tion of this chapter for other examples. 
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The high-level command files are as follows: 



FINDWRLD.HGH Procedure that finds a world coordinate system to 
fit a polygon 

AXIS.HGH Procedure that draws coordinate axes and labels 

POLYGON.HGH Procedure that draws polygons 

MODPOLY.HGH Procedures that rotate, scale and translate poly- 
gons 

SPLINE.HGH Procedure that does spline smoothing on polygons 

BEZIER.HGH Procedure that does Bezier interpolations on poly- 

gons 

HATCH. HGH Procedure that fills (hatches) bars in bar charts 

HISTOGRM.HGH Procedure that draws bar charts 

CIRCSEGM.HGH Procedure that draws and labels circle segments 

PIE.HGH Procedure that draws and labels pie charts 
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A Sample Turbo Graphix Toolbox Program 

This sample program demonstrates the essential elements of a Turbo 
Graphix Toolbox program. 



program simple; 

{$1 typedef.sys} 
{$1 graphix. sys} 
{$1 kernel. sys} 



{these files must be} 
{included in this order} 



begin 

InitGraphic; 
DrawBorder; 



DrawLine ( 10 , 10 , 600 , 180 ) ; 
DrawSquare( 10, 10,600, 180, false) 
DrawLine(-100,-20,750,320); 



{initialize the graphics system} 
{draw a border around the drawing} 
{area of the active window} 
{(the dimensions of the active window} 
{default to 640x200 points)} 

{draw a line} 

{draw a square} 

{draw a line to demonstrate} 

{clipping} 



repeat until KeyPressed; 
LeaveGraphic; 
end. 



{hold screen until key pressed} 
{leave the graphics system} 



Constant and Type Definitions 

This section defines and describes, in alphabetical order, the constants 
and types used in Turbo Graphix Toolbox routines. Each constant or 
type is first defined, then described in detail as it applies to various pro- 
cedures and functions. The Turbo Graphix file — either TYPEDEF.SYS or 
GRAPHIX.SYS — that contains the constant or type is given in brackets 
next to the constant or type name. 

To customize your application, you can change some of the constants 
and types by altering the TYPEDEF.SYS or GRAPHIX.SYS file; howev- 
er, this should be done with great care, and only after you have made 
certain that you thoroughly understand the Turbo Graphix Toolbox pro- 
gram. Otherwise, a system crash or other unpredictable disasters could 
occur. 
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AspectFactor [GRAPHIX.SYS] 

Declaration const AspectFactor: real = (depends on system); 

Purpose AspectFactor is used to adjust the aspect ratio 

(horizontal-to-vertical ratio) of a circle or ellipse so that a 
true circle is drawn on a particular physical screen using 
a particular graphics board. Without this adjustment, a 
circle may be drawn in a distorted way — too tall or too 
wide. This is because the horizontal-to-vertical ratio 
varies on different monitors. 

Remarks The graphics system multiplies the aspect ratio for a 

given circle or ellipse by the value of AspectFactor (which 
varies with the particular hardware screen installed) to 
create the desired shape. Multiplying AspectFactor by a 
constant creates ellipses with the same width, but with 
different heights. AspectFactorX 1 creates a true circle 
on any screen, while AspectFactorX 2 gives an ellipse 
that is twice as tall as it was, and AspectFactor^- 2 gives 
one that is half as tall as it was. Varying the aspect ratio 
varies the height of the drawn figure while keeping the 
width constant. Thus, if three circles are drawn with as- 
pect ratios of AspectFactor^- 2, AspectFactor, and 
AspectFactorX 2, respectively, the three figures will be 
tangent to each other at their leftmost and rightmost 
points, but not at their top and bottom points. 

Remarks This constant should not be altered, since it is specific to 

the graphics hardware in your system. 
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BackgroundArray [TYPEDEF.SYS] 

BackgroundArray [TYPEDEF.SYS] 

Declaration type BackgroundArray = array [0. .7] of byte; 

Purpose BackgroundArray is used by the SetBackground8 pro- 

cedure to pass the specified 8x8 bit pattern for filling a 
window background. 

CharFile [TYPEDEF.SYS] 

Declaration const CharFile: FileName = '4x6. font 1 ; 

Purpose CharFile contains the 4x6-pixel font. 

Remarks You can change this constant by altering either the 

TYPEDEF.SYS file or the main program before you call 
the InitGraphic procedure. 

ConOutPtr [Turbo Pascal] 

For information, please refer to the Turbo Pascal Reference Manual ("User 
Written I/O Drivers"). 

HardwareGrafBase [GRAPHIX.SYS] 

Declaration const HardwareGrafBase: integer = (depends on system); 

Purpose HardwareGrafBase defines the hardware segment ad- 

dress of graphics memory for a particular machine or 
graphics board. 

HeaderSizeGIb [TYPEDEF.SYS] 

Declaration const HeaderSizeGIb: = 10; 

Purpose HeaderSizeGIb defines the vertical dimension, in pixels, 

of window headers. Its value must be greater than or 
equal to 6. 

Remarks The total vertical drawing area available in a given win- 

dow is reduced by the size of its header. 
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IVStepGIb [GRAPHIX.SYS] 

Declaration const IVStepGIb: integer = (depends on system); 

Purpose IVStepGIb specifies the initial value of VStep, the step 

size (increment) by which windows are moved vertically. 

Remarks IVStep is used by the Turbo Graphix program to speed 

the vertical movement of large windows. Its value varies 
according to the particular hardware installed. See the 
MoveVer and SetVStep procedures. 



MaxBackground [GRAPHIX.SYS] 

Declaration const MaxBackground: integer = (depends on system); 

Purpose MaxBackground is a value that specifies the maximum 

number of available background ("black") colors for a 
particular hardware configuration: or 15 for IBM ver- 
sions, for Hercules, and for Zenith. 

Remarks This constant should not be changed, since it is specific 

to the graphics hardware installed. 



MaxForeground [GRAPHIX.SYS] 

Declaration const MaxForeground: integer = (depends on system); 

Purpose MaxForeground is a value that specifies the maximum 

number of available foreground ("white") drawing colors 
for a particular hardware configuration: 15 for IBM (ex- 
cept the PCjr version, which allows only black or white), 
for Hercules, and 7 for Zenith. 

Remarks This constant should not be changed, since it is specific 

to the graphics hardware installed. 

It is illegal to set the foreground and background colors 
to the same value. See the SetBackgroundColor and 
SetForegroundColor procedures for more information. 
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MaxPiesGIb [TYPEDEF.SYS] 
MaxPiesGIb [TYPEDEF.SYS] 

Declaration const MaxPiesGIb = 10; 

Purpose MaxPiesGIb specifies the maximum number of sections 

allowed in a pie chart. 

MaxPlotGIb [TYPEDEF.SYS] 

Declaration const MaxPlotGIb = 100; 

Purpose MaxPlotGIb defines the maximum number of points in a 

PlotArray. 

Remarks PlotArray is used to store the vertices of polygons. Bez- 

ier, DrawHistogram, DrawPolygon, FindWorld, Rotate- 
Polygon, ScalePolygon, Spline, and TranslatePolygon 
make use of the MaxPlotGIb constant. 

MaxWindowsGIb [TYPEDEF.SYS] 

Declaration const MaxWinfowsGlb - 16; 

Purpose MaxWindowsGIb specifies the maximum number of 

defined windows. 



MaxWorldsGIb [TYPEDEF.SYS] 

Declaration const MaxWorldsGIb = 4; 

Purpose MaxWorldsGIb specifies the maximum number of world 

coordinate systems that can be defined. 

Remarks Only one world coordinate system can be used at one 

time. 
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MinBackground [GRAPHIX.SYS] 

Declaration const MinBackground: integer - (depends on system); 

Purpose MinBackground specifies the minimum value for the 

background ("black") color for a particular graphics card: 
for IBM, for Hercules, and for Zenith. 

Remarks This constant should not be changed, since it is specific 

to the graphics hardware installed. 

MinForeground [GRAPHIX.SYS] 

Declaration const MinForeground: integer - (depends on system); 

Purpose MinForeground specifies the minimum value for the fore- 

ground ("white") drawing color for a particular graphics 
card: 1 for IBM, 1 for Hercules, and 1 for Zenith. 

Remarks This constant should not be changed, since it is specific 

to the graphics hardware installed. 

PieArray [TYPEDEF.SYS] 

Declaration type PieArray - array [1. .MaxPiesGlb] of PieType; 

Purpose PieArray is used to pass the definition of a pie chart to 

the DrawCartPie and DrawPolarPie procedures; each ele- 
ment of the array defines a single section of the pie. The 
two fields in the array are Area (a real number), and Text 
(a string). 

Remarks The maximum number of pie sections is determined by 

the MaxPiesGlb constant. 
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PlotArray [TYPEDEF.SYS] 

PlotArray [TYPEDEF.SYS] 

Declaration type PlotArray = array [1. .MaxPlotGlb, 1. .2] of real; 

Purpose PlotArray specifies the vertices of a given polygon, and is 

used to pass polygons to a procedure. 

Remarks In the Turbo Graphix Toolbox, the term polygon can 

mean any ordered collection of points, possibly (but not 
necessarily) connected by lines. Thus, a sampling of a 
sine wave can be called a polygon, though a smooth sine 
wave with an infinite number of points cannot. The data 
structure simply contains points. Poly[/,1] is the /'th X 
coordinate, and Poly[/,2] is the /'th Y coordinate. The 
maximum number of points in a polygon is determined by 
the constant MaxPlotGlb. 

PlotArray is used by Bezier, DrawHistogram, 
DrawPolygon, FindWorld, RotatePolygon, ScalePolygon, 
Spline, and TranslatePolygon. 

RamScreenGIb [TYPEDEF.SYS] 

Declaration const RamScreenGIb: boolean = true; 

Purpose RamScreenGIb determines whether or not a RAM (virtu- 

al) screen is allocated for drawing. 

Remarks A RAM screen takes up a large chunk of memory (as 

defined by the constant ScreenSizeGIb, in bytes) but it 
enables you to do many things, such as two-screen ani- 
mation and smooth window movement over a back- 
ground (see the MoveWindow procedure). 

Some hardware configurations allocate dedicated 
memory for RAM screens; in those cases, 
RamScreenGIb will always be TRUE. See Appendix A for 
further information. 
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ScreenSizeGIb [GRAPHIX.SYS] 

Declaration const ScreenSizeGIb: integer = (depends on system); 

Purpose ScreenSizeGIb specifies the size of the screen (in bytes 

divided by 2) for a particular hardware configuration. 

Remarks This constant should not be altered, since it is specific to 

the size of the physical screen in your computer; any 
change to this constant may cause a system crash or un- 
necessary memory allocation. 



StringSizeGIb [TYPEDEF.SYS] 

Declaration const StringSizeGIb = 80; 

Purpose 



Remarks 



StringSizeGIb specifies the maximum string length of the 
type WrkString. 

This constant is used by any procedure that requires a 
text string. 



WrkString [TYPEDEF.SYS] 

Declaration type WrkString - string[ StringSizeGIb]; 

Purpose WrkString is the string type used by Turbo Graphix pro- 

cedures that either require string parameters, or use 
strings internally. 

Remarks The DefineHeader and DrawText procedures use 

WrkString as their principle parameter. 
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XMaxGIb [GRAPHIX.SYS] 

XMaxGIb [GRAPHIX.SYS] 

Declaration const XMaxGIb -.integer = (depends on system); 

Purpose XMaxGIb specifies the width of the screen in bytes, less 

1 ; that is, the maximum value of an X (horizontal) window 
definition coordinate. The maximum screen width is 
XMaxGlbX8 + 7. 

Remarks This constant should not be changed, since it is specific 

to the particular hardware configuration. 

The DefineWindow procedure uses XMaxGIb to check 
whether a window is being defined within the physical 
screen. 

XScreenMaxGIb [GRAPHIX.SYS] 

Declaration const XScreenMaxGIb -.integer - (XMaxGlb*8+7) 

Purpose XScreenMaxGIb specifies the maximum width of the 

screen for a particular hardware configuration. 

Remarks This constant should not be changed, since it is specific 

to the particular hardware configuration. 



YMaxGIb [TYPEDEF.SYS] 

Declaration const TMaxGlb: integer = (depends on system); 

Purpose YMaxGIb specifies the height of the screen in pixels; that 

is, the maximum value of a Y (vertical) absolute screen 
coordinate. 

This constant should not be changed, since it is specific 
to the particular hardware configuration. 

The DefineWindow procedure uses YMaxGIb to check 
whether a window is being defined within the physical 
screen. 
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Quick Reference Guide to Turbo Graphix Routines 

In the following list, the Turbo Graphix Toolbox routines are grouped by 
function into six sections: Initialization and Error, Screens, Windows, 
Color and Drawing, Text, and Internal. Since the list is designed to help 
you find routines according to their logical use, and since some routines 
logically relate to more than one Amotion, a few routines appear in 
more than one section. The declaration for each routine is list- 
ed, followed by its page number. 



Initialization and Error 

procedure InitGraphic; 173 

procedure EnterGraphic; 157 

procedure LeaveGraphic; 177 

procedure Error (Proc, Code); 158 

function GetErrorCode: integer; 162 

procedure SetBreakOff; 204 

procedure SetBreakOn; 205 

procedure SetMessageOff; 216 

procedure SetMessageOn; 217 

procedure SetVStep( Step: integer); 219 

function HardwarePresent: boolean; 171 



Screens 

procedure SelectScreen( I .-integer); 197 

procedure LoadScreen(FileName:WrkString); 178 

procedure ClearScreen; 112 

procedure CopyScreen; 116 

procedure SaveScreen(FileName:WrkString); 193 

function GetScreen: integer; 164 

function GetScreenAspect:real; 166 

procedure InvertScreen; 175 

procedure SwapScreen; 226 

procedure HardCopy( Inverse :boolean; Mode:byte); 170 
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Windows 

procedure SetWindowModeCn; 221 

procedure SetWindowModeOff; 220 

function WindowMode: boolean; 232 

procedure DefineWirxiow(I,XLow,YLm,XHi,YHi:integer); 122 

procedure RedefineWinbbw(I,XLow,YLow,XHi,YHi:integer); 185 

procedure DefineTextWindow(I, Left, Up.Right, Down, Border: integer); .... 120 

procedure DefineWorld(I:integer;XLow,YLow,XHi,YHi:real); 123 

procedure SelectWorld( I: integer); 199 

procedure SelectWindow( I: integer); 198 

function GetWindow: integer; 167 

procedure SetClippingOn; 207 

procedure SetClippingOff; 206 

function Clip(var XI, Y1,X2,Y2: integer): boolean; 114 

function Clipping: boolean; 115 

procedure SetBackground(Pattern:byte); 201 

procedure SetBackground8(Pattern:BackgroundArray); 202 

procedure DefineHeader(I:integer;Hdr:WrkString); 119 

procedure SetHeaderOn; 212 

procedure SetHeaderOff; 211 

procedure SetHeaderToTop; 214 

procedure SetHeaderToBottom; 213 

procedure DrawBorder; 129 

procedure RemoveHeader; 186 

procedure SetVStep( Step: integer); 219 

function GetVStep: integer; 166 

procedure MoveHor(Delta:integer;FillOut:boolean); 181 

procedure MoveVer (Delta: integer ;Fill0ut: boolean); 182 

procedure InvertWindow; 176 

procedure CopyWindow(From,To:byte;Xl,Yl: integer); 117 

function WindowSize(Nr: integer): integer; 233 

procedure StoreWindow( Window: integer); 224 

procedure RestoreWindow(I,DeltaX,DeltaY:integer); 190 

procedure SaveWindow( I: integer; FileName:WrkString); 194 

procedure SaveWindowStack(FileNan»:WrkString); 195 

procedure LoadWindow(I,X,Y:integer;FileName:WrkString); 179 

procedure LoadWindowStack(FileName:WrkString); 181 

procedure ClearWindowStack(Nr: integer); 113 

procedure ResetWindowStack; 187 

procedure ResetWindows; 188 

procedure ResetWorlds; 189 

function WindowX(X: real) -.integer; 234 

function WindowY(Y: real): integer; 235 
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Color and Drawing 



procedure SetBackgroundColor( Color: integer); 203 

procedure SetForegroundColor( Color: integer); 210 

procedure SetColorWhite; 209 

procedure SetColorBlack; 208 

function GetColor: integer; 161 

procedure DrawPoint(X,Y:real); 143 

function PointDrawn(X.Y) : boolean; 184 

procedure SetLineStyle(LS: integer); 215 

function GetLineStyle: integer; 163 

procedure DrawLine(Xl,Yl,X2,Y2:real); 141 

procedure DrawLineClipped(Xl,Yl,X2,Y2: integer); 142 

procedure DrawStraight ( XL, X2.Y: integer); 152 

procedure DrawSquare( XI, Y1.X2.Y2: real; Fill: boolean); 149 

procedure DrawSquareC( XI, Y1,X2,Y2: integer; Fill: boolean); 150 

procedure Hatch ( XI, Y1.X2.Y2: real; Delta: integer); 172 

procedure SetAspect( Aspect: real); 200 

procedure SetScreenAspect(Aspect:real); 218 

function GetAspect:real; 160 

function GetScreenAspect:real; 166 

procedure DrawCircle(X,Y,R:real); 132 

procedure DrawCircleDirect(X, Y,R: integer; Clip: boolean); 133 

procedure DrawCircleSegment ( XCenter , YCenter : real ; var 

XStart , YStart : real ; Inner , Outer , Angle , Area : real ; 

Text:WrkString;Option,Scale:byte); 134 

procedure DrawCartPie(XCenter, YCenter, XStart, YStart, Inner, Outer: real; 

A:PieArray;N, Option, Scale: integer); 130 

procedure DrawPolarPie( XCenter, YCenter, Radius, Angle, Inner, Outer: real; 

A :PieArray;N, Option, Scale: integer); 144 

procedure DrawAxis(XDensity, YDensity, Left, Top, Right, Bottom: integer; 

XAxis, YAxis: integer; Arrows: boolean); 127 

procedure DrawHistogram(A:PlotArray;N: integer); 139 

procedure DrawPolygon(A:PlotArray; 

First, Last, Code, Scale, Lines: integer); 146 

procedure FindWorld( I : integer ; A : PlotArray ; 

N:integer;ScaleX,ScaleY:real); 159 

procedure ScalePolygon(A:PlotArray;N:integer;XFactor,YFactor:real); 196 

procedure RotatePolygon(A:PlotArray;N:integer;Angle:real); 191 

procedure RotatePolygonAbout( A: PlotArray;N: integer; Angle, X, Y: real ) ; 1 92 
procedure TranslatePolygon( A: PlotArray ;N: integer; 

DeltaX, Del taY: real ) ; 231 

procedure Spline( A: PlotArray ;N: integer; XI, Xm: real; var B:PlotArray; 

M: integer); 222 

procedure Bezier( A: PlotArray ;N: integer; var B : PlotArray ;M: integer); 109 
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Text 

procedure DrawText(X, Y, Scale :integer;Text:WrkString) 153 

procedure DrawTextW(X,Y,Scale:real;Text:WittString) 155 

procedure DrawAscii(var X, Y : integer; Size, Ch: byte) 126 

procedure DefineHeader( I: integer; Hdr:WrkString) 119 

procedure DefineTextWindow(I, Left, Up, Right, Down, Border: integer) 120 

function TextDown(Ty, Boundary: integer): integer 227 

function TextLeft(TX, Boundary: integer): integer 228 

function TextRight(TX, Boundary: integer): integer 229 

function TextUp(TY, Boundary: integer): integer 230 



Internal 

function BaseAddress(Y: integer): integer 108 

procedure DC(C:byte) 118 

procedure DisplayChar(C:byte) 124 

procedure DP(X,Y: integer) 125 

procedure DrawCross(X,Y, Scale: integer) 136 

procedure DrawCrossDiag(X,Y, Scale: integer) 137 

procedure DrawDiamond(X,Y,Scale: integer) 138 

procedure DrawStar(X,Y,Scale:integer) 151 

procedure Drawee (X,Y, Scale: integer) 156 

procedure GotoXY(X,Y: integer) 168 

procedure GotoXYTurbo(X,Y: integer) 169 

function HardwarePresent: boolean 171 

function PD(X,Y) :boolean 183 
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Procedures and Functions 

This section defines and describes, in alphabetical order, all the pro- 
cedures and functions contained in the Turbo Graphix Toolbox. The 
call-up for each procedure or function is given, followed by a detailed 
description of its function. Remarks, restrictions, and examples are 
given where appropriate, as well as cross-referencing to related pro- 
cedures and functions. The Turbo Graphix file that contains the pro- 
cedure or function is given in brackets next to the name of the pro- 
cedure or function. 

Refer to page 94 for a description of the constants and types used in 
these procedures and functions. 

If your system contains an IBM or Hercules graphics card, you must 
copy the GRAPHIX file written for your hardware (supplied on the distri- 
bution disk) onto the GRAPHIX.SYS file. This is done by invoking the 
Turbo Graphix batch program, i.e., type tginst hgc or tginst ibm. Failure 
to do so may cause malfunctioning of Turbo Graphix programs. 
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BaseAddress [GRAPHIX.SYS] 

Declaration function BaseAddress(Y: integer): integer; 

BaseAddress(Y); 
V: a screen line (O...YMaxGlb) 



Usage 

Parameters 

Function 



BaseAddress calculates the offset of screen line Y in 
memory. 

Remarks This function is for internal use by the graphics system. 

Restrictions None 

Example I:=BaseAddress(5); 

/ is the offset at the start of screen line 5 (the sixth line 
on the screen). 

FillChar(Mem[GrafBase:BaseAddress(9) ] .XMaxGlb.O) ; 
sets the 10th screen line to "black." 
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Bezier [BEZIER.HGH] 



Declaration procedure Bezier(A:PlotAiray;N:integer; 

var B : PlotAr ray ; M : integer ) ; 

Usage Bezier(A,N,B,M); 

Parameters A: array of Xand /control points 

N: number of control points 
B: array of resultant Bezier-function base points 
M: desired number of base points in resultant Bezier 
polynomial curve 

Function Bezier computes a Bezier polynomial curve from an ar- 

ray, A, that contains N control points. The resultant ar- 
ray, B, is filled with M base points that constitute a 
parametric curve. The curve passes through the first and 
last control points, and passes as close as possible to 
each of the other points. 

A Bezier function is defined by a set of control points (X 
and Y values). Within this defined interval, the Bezier 
function calculates the resultant base points. 

Remarks Bezier polynomials are often used when a smooth curve 

of some particular form is needed. Increasing the value 
of M smooths the curve, but slows down the computing 
process. 

The specific attributes of Bezier functions and their appli- 
cations in graphic design are discussed in the book, Prin- 
ciples of Computer Graphics, by W. Newmann and 
R.Sproul. 

Restrictions The maximum values for N and M are determined by the 

constant MaxPlotGIb, specified in the TYPEDEF.SYS file. 
The default value is 100 (of MaxPlotGIb). 

See Also DrawPolygon 

RotatePolygon 
ScalePolygon 
TranslatePolygon 
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Example This example, taken from the Turbo Graphix demo pro- 

gram, uses seven control points to draw a curve. Fifteen 
base points (shown as a dotted line) are generated by 
this procedure. The positions of the points and the value 
of M can be changed interactively. 

program BezierDemo; 

{fitypedef.sys} 

{Sigraphix.sys} 

{$ikernel . sys} 

{Sibezier.hgh} 

{Jipolygon.hgh} 

const 

ControlPoints=7 ; 

var 

A,B: PlotArray; 

NewX.NewY: real; 

I, BezierPoints: integer; 

begin 

InitGraphic; 
SetHeaderOn; 
BezierPoints : =15 ; 

A[1,1]:=1;A[2,1]:=1.5;A[3,1]:=2;A[4,1]:=2.5;A[5,1]:=3; 
A[6,1]:=4;A[7,1]:=5; 

A[1,2]:=2;A[2,2]:=1.5;A[3,2]:=1;A[4,2]:=2.5;A[5,2]:=4; 
A[6,2]:=4.5;A[7,2]:=5; 
DefineWorld( 1,0,0,6,6) ; 
SelectWorld(l); 
DefineWindow( 1,0,0,79, 170) ; 
SelectWindow(l); 

DefineHeader(l, 'BEZIER PROCEDURE DEMONSTRATION' ) ; 
repeat 
ClearScreen; 
DrawBonier; 
SetLinestyle(l); 

DrawPolygon(A, l,ControlPoints,4,2,0) ; 
Bezier( A, CbntrolPoints,B, BezierPoints) ; 
SetLinestyle(O); 

DrawPolygon ( B , 1 , BezierPoints ,0,0,0); 
gotaxy(l,23); 
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write ( 'Enter point # to change (0 to change # of Bezier points) : ' ); 
readln(I); 

if I in [l..ControlPoints] then 
begin 
repeat 
gotoxy(l,24); 

write( 'Old position: [ ' ,A[I, 1] :4:2, ' , ' ,A[I,2] :4:2, ' ] ' ) ; 
gotaxy(40,24) ;write( 'New position x: ' ) ; 
readln(NewX) ; 

gotaxy(40,25) ;write( 'New position y: ' ) ; 
readln(NewY) ; 
until (NewX>=0) and (NewX<=6) and (NewY>=0) and (NewY<=6); 
A[I,l]:=NewX; 
A[I,2]:=NewY; 
end 

else if 1=0 then 
begin 
gotaxy(l,24); 

write ( 'Old density: ' .BezierPoints, ' New density: '); 
readln(BezierPoints) ; 
end; 
until not (I in [0. .ControlPoints]); 
LeaveGraphic; 
end. 
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ClearScreen [KERNEL.SYS] 

Declaration procedure ClearScreen; 

ClearScreen; 



Usage 
Function 

Remarks 

Restrictions 
See Also 
Example 



ClearScreen erases the screen that is currently in use 
(the active screen). 

Initialization is not performed by this procedure; see 
InitGraphic. 

None 

InitGraphic 

program ClearScreenExample; 

{litypedef.sys} 

{Jigraphix.sys} 

{fikernel.sys} 

begin 

DrawLine ( 1 , 1 , 200 , 200 ) ; 

DrawLine(l, 200,200, 1) ; 

gotoxy(50,12); 

write ('Hit return to clear screen: '); 

readln; 

ClearScreen; 

gptoxy( 10,25); 

write('Hit return to end: ' ); 

readln; 
end. 
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ClearWindowStack [WINDOWS.SYS] 



Declaration procedure ClearWindowStack(Nr: integer); 

Usage ClearWindowStack(Nr); 

Parameters Nr. index of window to be erased [1 ..MaxWindowsGIb] 

Function ClearWindowStack deletes a designated window, Nr, 

from the window stack. If there is no window entry at the 
given index, the operation is not performed. 

Remarks A call to RestoreWindow cannot restore a window 

erased using this routine. 

Restrictions The value of Nr must lie between 1 and the constant 

MaxWindowsGIb (defined in the TYPEDEF.SYS file). 

See Also ResetWindowStack 

RestoreWindow 
StoreWindow 

Example CleaxWindowStack(7); 

removes the window stack entry (if there is one) for 
window 7. 
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Clip [KERNEL.SYS] 

Declaration Amotion Clip(var XI, Y1.X2.Y2: integer) :boolean; 

Usage Clip(X1 ,Y1 ,X2,Y2); 

Parameters XI, Y1 : coordinates of starting point of line 

X2, Y2 : coordinates of end point of line 
boolean : if FALSE, line lies outside window 

Function Clip clips a line to fit the active window, and determines 

whether or not the full length of a line is drawn. The four 
integer variables represent absolute screen coordinates. 
Clip adjusts them as follows: if a line is drawn from 
[X1,Y1] to [X2.Y2], any part of the line that lies outside 
the active window is removed. The resulting coordinates 
describe a line that is entirely contained by the active 
window. The boolean function value is TRUE if the ad- 
justed coordinates still represent a line, and FALSE if the 
entire line is clipped away. 

Remarks Although this function is mainly for internal use, it can 

also be useful when you are working with window mode 
off {SetWindowModeOff), to ensure that drawings remain 
within the physical screen. 

Restrictions Since the four integer parameters are modified by Clip, 

they must be variables; they cannot be expressions. 

See Also Clipping 

SetClippingOff 
SetClippingOn 
SetWindowModeOff 
SetWindowModeOn 

Example if Clip(Xl,Yl,X2,Y2) then DrawLine(Xl,Yl,X2,Y2); 

draws only the part of the line that falls within the ac- 
tive window. 

B:=Clip(Xl,Yl,X2,Y2); 

adjusts [X1,Y1] and [X2.Y2] so that the line between 
them is entirely contained by the active window; sets B 
to TRUE if any part of the original line remains. 
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Clipping [KERNEL.SYS] 

Declaration fraction Clipping:boolean; 

Usage Clipping; 

Function Clipping returns the clipping status: TRUE when clipping 

is enabled with the SetClippingOn procedure; FALSE 
when clipping is disabled with the SetClippingOff pro- 
cedure. 

Restrictions None 

See Also Clip 

SetClippingOn 
SetClippingOff 

Example B: -Clipping; 

sets B to TRUE if clipping is enabled, FALSE if not. 
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CopyScreen [KERNEL.SYS] 

Declaration procedure CopyScreen; 

Usage CopyScreen; 

Function CopyScreen copies the active screen onto the inactive 

screen. 

Remarks If the active screen is the RAM screen, this procedure 

copies it to the displayed screen. CopyScreen is often 
used to save a window background when another win- 
dow is being moved over the background. See Chapter 
2, page 39 for detailed information about moving win- 
dows. 

Restrictions In order to use this procedure, there must be an available 

RAM screen in memory, i.e. the constant RamScreenGIb 
must be TRUE in the TYPEDEF.SYS file. 

See Also LoadScreen 

SaveScreen 
SelectScreen 
SetBackground 
SwapScreen 

Example CopyScreen; 

copies the active screen onto the inactive screen. 
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CopyWindow [WINDOWS.SYS] 

Declaration procedure CopyWindow( From, To: byte; XI, Yl: integer); 

Usage CopyWindow(From,To,X1 ,Y1 ); 

Parameters From : screen from which window is copied 

To : screen window is to be copied onto 
XI, Y1 : window definition coordinates where window 
is copied 

Function CopyWindow copies the contents of the active window 

to and from the RAM screen and the displayed screen. A 
value of 1 for To or From designates the displayed 
screen, while a value of 2 for To or From designates the 
RAM screen. The window is copied to the screen loca- 
tion specified by window definition coordinates [X1,Y1]. 

Remarks CopyWindow copies images from the area enclosed by 

the active window in the specified screen. This may have 
surprising results if the wrong screen is specified! 

See page 39 for complete information about moving win- 
dows. 

Restrictions To use CopyWindow, there must be an available RAM 

screen in memory, i.e. the constant RamScreenGIb is 
TRUE (defined in the TYPEDEF.SYS file). 

See Also LoadWindow 

SelectWindow 

Example CopyWindow(l,2,10,20); 

copies the active window from the displayed screen to 
the RAM screen, placing the upper left corner of the win- 
dow at window definition coordinates [10,20] (screen 
coordinates [80,20]). 

CopyWindow( 1, 1, 50, 5 ) ; 

copies the active window from its current position on 
the displayed screen to window definition coordinates 
[50,5] (screen coordinates [400,5]) on the displayed 
screen. 
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DC [GRAPHIX.SYS] 

Declaration procedure DC(C:byte); 

Usage DC(C); 

Parameter C: ASCII code of drawn character 

Function DC draws the character whose ASCII code is C at text 

coordinates [XTextGlb.YTextGIb] (internal variables) in 
the font used by the particular hardware configuration in- 
stalled. 

Remarks DC is for internal use by the graphics system. It does not 

advance the cursor. 

Restrictions None 

See Also DefineTextWindow 

TextDown 
TextLeft 
TextRight 
TextUp 

Example DC(32); 

displays character 32 (space) at the current cursor po- 
sition on the active screen, without moving the cursor. 
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DefineHeader [KERNEL.SYS] 



Declaration procedure DefineHeader(I: integer; Hdr:WrkString); 

Usage DefineHeader (I, Hdr); 

Parameters / : index of window for which header is defined 

[1 ..MaxWindowsGIb] 
Hdr : string term for window header 

Function DefineHeader defines a window header, Hdr, for a given 

window, /. The procedure defines the text that makes up 
the header, but has no effect on the display; the header 
is not displayed or altered until procedure DrawBorder is 
called. The header is then centered horizontally either on 
the top or the bottom of the window, depending on 
whether the last call was to SetHeaderToTop or 
SetHeaderToBottom. 

Restrictions Window headers can only be drawn with the 4x6-pixel 

character set. 

The value of / must lie between 1 and the constant 
MaxWindowsGIb (defined in TYPEDEF.SYS file). 

See Also DrawBorder 

RemoveHeader 

SetHeaderOff 

SetHeaderOn 

SetHeaderToBottom 

SetHeaderToTop 

Example DefineHeader( 1, ' *** Edit window *** ' ) ; 

defines the header of window 1 to be *** Edit window 
***, without affecting the display of the header. 
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DefineTextWindow [KERNEL.SYS] 

Declaration procedure DefineTextWindow! I, Left, Up.Right, Down, 

Border: integer); 

Usage DefineTextWindow(l,Left,Up,Right,Down, Border); 

Parameters / : index of window 

Left : X coordinate of left edge of machine-dependent 
text 

Up : /coordinate of upper edge of machine- 
dependent text 

Right : X coordinate of right edge of machine- 
dependent text 

Down : /coordinate of bottom edge of machine- 
dependent text 

Border : desired number of pixels between text and 
window boundaries 

Function DefineTextWindow uses the given text coordinates (Left, 

Up, Right, Down, and Border) and the number of pixels, 
Border, that you want between the text and all four 
edges of the window, to define a window. The window 
defined will allow for a uniform space between the text 
and the window edges. 

Remarks DefineTextWindow is used to fit and align text within a 

window. It is particularly useful with the Hercules version 
of the Turbo Graphix Toolbox, since Hercules text is 
defined on 9-pixel boundaries, while windows are defined 
on 8-pixel boundaries; this one-pixel offset can create 
alignment problems. 

If you wish to vary the space between your text and any 
of the four window edges, use the TextLeft, TextRight, 
TextUp, and TextDown functions to define the space in- 
dividually for each window edge. 

Restrictions If you define a 4x6-pixel header for your window, the place- 

ment of the machine-dependent text will be thrown off by 
the size of the header; in this case, use the four functions 
mentioned above to realign text within the window. 

Note that the horizontal border values are only approxi- 
mate, since they are restricted to window defintion coor- 
dinates, and are adjusted outward if necessary. 
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See Also DefineHeader 

DefineWindow 
TextDown 
TextLeft 
TextRight 
TextUp 

Example DefineTextWindow(3, 2,2, 79,24,4) ; 

defines window 3 so that it encloses text coordinates 
from [2,2] to [79,24], with a border of at least 4 pixels 
between the text and all edges. 
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DefineWindow [KERNEL.SYS] 

Declaration procedure Def ineWindow( I , XLow, YLow, XHi , YHi : integer ) ; 

Usage DefineWindow(l,XLow,XHi,YHi); 

Parameters / : index of window [1 ..MaxWindowsGIb] 

XLow : X value of upper left window position 

[O..XMaxGlb] 
YLow : /value of upper left window position 

[O..YMaxGlb] 
XHi : X value of lower right window position 

[\..XMaxGlb] 
YHi : /value of lower right window position 

[O..YMaxGlb] 

Function DefineWindow defines a region of the screen as a win- 

dow, /. The window is defined as a rectangle with the 
upper left corner at [XLow, YLow] and the lower right 
corner at [XHi,YHi\. 

Remarks The X coordinates of a window are defined in 8-pixel 

chunks; i.e, windows are placed on byte boundaries in 
memory. If DefineWindow is called with parameters 
(1,10,10,19,19), the defined window is 10 pixels tall and 
80 pixels wide. 

Restrictions The value of / must be between 1 and MaxWindowsGIb 

(as defined in the TYPEDEF.SYS file), all coordinates 
must lie within the physical screen, and the Low coordi- 
nates must be lower in numeric value than the Hi coordi- 
nates; otherwise, an error will occur. 

See Also RedefineWindow 

SelectWindow 

Example DefineWindow(4,5,5,10,10); 

defines window 4 , with upper left corner at window 
definition coordinates [5,5] and lower right corner at 
[10,10] (screen coordinates [40,5] and [87,10]). 

DefineWindow(2,0,0,XMaxGlb div 2,lMaxGlb div 2); 

defines window 2 as the upper left quarter of the 
screen. 
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DefineWorld [KERNEL.SYS] 

Declaration procedure DefineWorld(I: integer; XLow,YLow,XHi,YHi:real); 



Usage 
Parameters 



Function 



Remarks 



Restrictions 



See Also 



Example 



DefineWorld(l,XLow,YLow,XHi,YHi); 

/ : index of world to be defined [1 ...MaxWorldsGIb] 

XLow : X coordinate of upper left vertex 

YLow : Y coordinate of upper left vertex 

XHi : X coordinate of lower right vertex 

YHi : /coordinate of lower right vertex 

DefineWorld defines a world coordinate system, delineat- 
ed by the rectangle formed by the vertices [XLow,YLow] 
and [XHi,YHi\. World coordinates therefore range from 
[XLow.YLow] to [XHi,YHi\. 

The world coordinate system is not enabled until 
SelectWorld is called. 

The world's index value, /, must lie between 1 and 
MaxWorldsGIb (as defined in the TYPEDEF.SYS file), 
and the Low coordinates must be lower in numeric value 
than their respective Hi coordinates; otherwise, an error 
will occur. 

DefineWindow 
SelectWindow 
SelectWorld 

Def ineWorld( 1,0,-1, 2*Pi , 1 ) ; 

defines a world suitable for displaying one cycle of the 
sine function. 
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DisplayChar [GRAPHIX.SYS] 

Declaration prooedure Displaj/Char(C:byte); 

Usage DisplayChar(C); 

Parameters O. ASCII code of drawn character 

Function DisplayChar draws the character whose ASCII code is C 

at text coordinates [XTextGlb,YTextGlb] (internal vari- 
ables). This procedure uses the font specific to the 
hardware configuration installed. ConOutPtr is set to 
point to this procedure while graphics mode is active. 

Remarks This procedure is for internal use by the graphics system. 

XTextGIb and YTextGIb are updated to the new cursor 
position. 

Restrictions None 

See Also DefineTextWindow 

TextDown 
TextLeft 
TextRight 
TextUp 

Example DisplayChar( ' ! ' ) ; 

displays an exclamation point at the current cursor po- 
sition, then advances the cursor. 
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DP [GRAPHIX. 

Declaration 

Usage 

Parameters 

Function 

Remarks 

Restrictions 

See Also 
Example 



SYS] 

procedure DP(X, Y: integer) ; 

DP(X,Y); 

X, Y: coordinates of drawn point 

DP draws a point at screen coordinates [X,Y\. 

This procedure is primarily for internal use of the graph- 
ics system. 

Since no clipping is performed by this procedure, it is im- 
portant to specify valid X and Y parameters; otherwise, 
program memory may be encroached upon, or the sys- 
tem may crash. 

DrawPoint 

DP(2,3); 

draws a point at screen coordinates [2,3] on the active 
screen in the current drawing color. 
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DrawAscii [KERNEL.SYS] 

Declaration procedure DrawAscii(Var X,Y: integer; Size,Ch:l3yte); 

Usage DrawAscii(X,Y,Size,Ch); 

Parameters X, Y : coordinates of drawn character 

Size : size of character 
Ch : ASCII value of character 

Function DrawAscii draws a single character with ASCII value Ch 

at screen coordinates [X,Y\. The 4x6-pixel character set 
is used. The character is drawn with its upper left corner 
at screen coordinates {X,Y— (2X S/ze) + 1). Each point 
of the character is drawn as a Size-by-Size box, so the 
character is multiplied by Size in both directions. X is 
changed to X+ (6 X Size), so that another call to 
DrawAscii using the same X and Y variables would draw 
the next character one position to the right (with a 
2 X Size blank space between the characters). 

Remarks The character is clipped at the boundaries of the active 

window if clipping is enabled with SetCiippingOn. The 
character would be displayed to the right, and both 
above and below coordinates [X, Y] 

Restrictions None 

See Also DefineHeader 

DrawText 
DrawTextW 

Example DrawAscii (20, 40,25, 'W ) ; 

draws a very large (1 00x1 50 pixel) W at screen coordi- 
nates [20,40]. Modifies X so that if another character of 
that size were drawn, it would be placed directly after the 
first character. 
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DrawAxis [AXIS.HGH] 



Declaration procedure DrawAxis()©ensity, YDensity, Left, Top, Right, Bottom: 

integer ; XAxis , YAxis : integer ; Arrows : boolean ) ; 

Usage DrawAxis(XDensity,YDensity,Left,Top,Right,Bottom,XAxis l 

YAxis.Arrows); 

Parameters XDensity : density of tick marks on X ruler ( — 9 to 9) 

YDensity : density of tick marks on Y ruler ( — 9 to 9) 
Left : distance of drawing area from left edge of 

window 
Top : distance of drawing area from top edge of 

window 
Right : distance of drawing area from right edge of 

window 
Bottom : distance of drawing area from bottom edge of 

window 
XAxis : line style of horizontal axis 
YAxis : line style of vertical axis 
Arrows : if TRUE, arrow symbols drawn at ends of 

axes; if FALSE, arrows not drawn 

Function DrawAxis draws X and Y axes with ruler markings in the 

active window, to provide coordinate reference informa- 
tion for plots and drawings. This procedure can optionally 
define the world drawing area to be smaller than a win- 
dow, draw a line around the drawing area, provide au- 
tomatically labeled rulers for X and Y axes with variable 
tick mark density, and coordinate axes in various line 
styles. 

The parameters Left.Top, Right, and Bottom move the 
drawing area in from the edges of the active window. If 
these parameters are all equal to 0, the drawing area is 
the entire window. XDensity and YDensity select how 
close together tick marks are drawn on the rulers, from 
-9 to 9. The sign of the Density parameters is ignored, 
except that if one of the Density parameters is negative 
and the other positive, a line is drawn around the drawing 
area. The XAxis and YAxis parameters specify the line 
styles of the horizontal and vertical axes. If either is 
negative in value, the corresponding axis is not drawn. 
The line styles correspond to those used to select line 
styles in the DrawLine procedure. 
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Restrictions Moving the drawing area in from the edges of the active 

window is subject to the following conditions: 

1. It only affects procedures DrawHistogram and 
DrawPolygon. 

2. It is disabled after one call to either DrawHistogram or 
DrawPolygon. 

3. To draw more polygons or histograms in this smaller 
window, set the global variable AxisGIb to TRUE be- 
fore each additional call to DrawPolygon or DrawHis- 
togram. 

Example DrawAxis(2, 2, 0,0,0,0,0,0, false); 

draws solid axes that extend to the edges of the active 
window, with arrows on their ends. Numbers on the axes 
are displayed very far apart. 

DrawAxis(9, -1,1,4, 1,4, 1,-1, true); 

draws a dashed horizontal axis with an arrow on the 
end, and with numbers displayed very close together. 
Axis is drawn in an area that is smaller than the active 
window by 8 pixels on the right and left and 4 pixels on 
the top and bottom. A border is drawn around the draw- 
ing area. 
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DrawBorder [KERNEL.SYS] 

Declaration procedure DrawBorder; 

Usage DrawBorder; 

Function DrawBorder draws a border around the active window in 

the current drawing color and line style. 

Remarks If a header has been defined for the active window with 

the DefineHeader procedure, DrawBorder positions the 
header on the upper edge of the window if 
SetHeaderToTop has been called, or on the lower edge 
of the window if SetHeaderToBottom has been called. A 
header reduces the available drawing area in the window; 
if no header is defined, the whole window is used as the 
drawing area. 

DrawBorder does not erase the active window. If you 
need to erase the window background, use SetBack- 
ground (set to 0). 

Restrictions If the header is too long to fit within the window, it is not 

drawn. (Header length X 6) must be less than the width 
of the window in pixels, — 2. 

See Also DefineHeader 

DrawSquare 
SetBackground 
SetHeaderOff 
SetHeaderOn 
SetHeaderToBottom 
SetHeaderToTop 

Example DrawBorder; 

draws a border around the active window, along with a 
header or footer if one was previously defined with the 
DefineHeader procedure. 
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DrawCartPie [PIE.HGH] (also requires CIRCSEGM.HGH) 

Declaration procedure DrawCartPie (XCenter,YCenter,XStart,YStart, 

Inner, Outer: real; A:PieArray; N, Option, 
Scale: integer; 

Usage DrawCartPie(XCenter,YCenter,XStart,YStart,lnner,Outer, 

A,N,Option,Scale); 



Parameters XCenter, YCenter : world coordinates of center point of 




circle 


XStart.YStart 


: world coordinates of starting point of 




first circle segment 


Inner 


: inner radius of label line in radius 




units 


Outer 


: outer radius of label line in radius 




units 


A 


: pie chart array 


N 


: number of circle segments 


Option 


: labeling options 




Option = : no label 




Option = 1 : text label only 




Option = 2 : text and numeric label 


1 


Option = 3 : numeric label only 


Scale 


: multiplier for specifying size of label 


Data Format Pie chart data 


is passed to the procedure as an array o 


the following form: 


type PieT^^record 




Area: real; 




Text:wrkstring; 


end; 




PieArray=array 


[L.MaxPiesGlb] of PieType; 



Function DrawCartPie draws a pie chart, referenced to the X and 

Y coordinates of the starting point of the first pie seg- 
ment, with optional text or numeric labels. Each 
segment's area and label are passed to the procedure in 
the PieArray, A, which defines the pie chart to be drawn. 

DrawCartPie first determines each segment's proportion 
of the whole pie chart, then draws and labels the seg- 
ments. Each segment's percentage of the pie chart is 
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determined by totaling the areas of all segments, then 
displaying each segment's area as a percentage of the 
total area. Since this computation of percentage is not 
affected by the absolute values of the areas, any number 
system can be used for specifying the areas. A negative 
value for area causes the pie segment to move out radi- 
ally and be displayed separately from the rest of the pie 
chart. 

A line is drawn from each pie segment, starting at a dis- 
tance of Inner away from the center segment and ending 
at a distance of Outer. A text and/or numeric label can 
be drawn at the end of each segment line in the 4x6- 
pixel character set. Inner and Outer specify the inner and 
outer radii that the radial label line is to traverse, with 1 
being on the circle itself. Option specifies whether the 
area value and/or text is displayed; a value of desig- 
nates no label, 1 specifies text label only, 2, text and 
numeric label, and 3, numeric label only. Scale specifies 
the size of the characters that make up the label. 

Remarks Pie segments are drawn in a clockwise direction. Any 

part of the pie chart that lies outside the window boun- 
daries is clipped if clipping is enabled with the SetClip- 
pingOn procedure. 

Note that the aspect ratio is applied to pie charts. The 
aspect ratio must be set to 1 with the SetAspect pro- 
cedure to ensure a circular pie chart. 

To draw a pie chart with reference to its radius and the 
angle of its first segment, use DrawPolarPie. 

See Also DrawCircleSegment 

DrawPolarPie 
PieArray (type) 
SetAspect 

Example DrawCartPie( 100, 100, 125, 100, 1. 1, 1.4,SalesFigures,9,2, 1) ; 

draws a pie chart, with 9 sections, from the 
SalesFigures array. The starting point of the first pie seg- 
ment is at [125,100]. Both numeric and text labels are at- 
tached to the pie with short lines. Labels are drawn in 
4x6-pixel characters without scaling. 
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DrawCircle [KERNEL.SYS] 

Declaration procedure DrawCircle(X,Y,R:real); 

Usage DrawCircle(X,Y,R); 

Parameters X, Y: coordinates of point at center of circle or ellipse 

R : radius of circle or ellipse 

Function DrawCircle draws circles and ellipses. The circle or el- 

lipse is drawn with its radius measured in the horizontal 
(X) direction, and with Radius X Aspect in the vertical (Y) 
direction. 

Remarks The horizontal-to-vertical ratio (aspect ratio) is set with 

the procedure SetAspect. Small aspects produce ellipses 
stretched horizontally, and large aspects produce vertical 
ellipses, while an aspect of 1 draws a true circle. 

Restrictions If SetWindowModeOn has been called, the value of the 

radius should be provided in an order of magnitude of 1 ; 
if SetWindowModeOff has been called, the order of mag- 
nitude should be 100. 

See Also AspectFactor (constant) 

DrawCircleDirect 
DrawCircleSegment 
SetAspect 

Example DrawCircle(20,40,15) 

draws a circle whose center point is at coordinates 
[20,40] with a radius of 15. 
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DrawCircleDirect [KERNEL.SYS] 

Declaration procedure DrawCircleDirect(X,Y,R: integer; Clip: boolean); 

Usage DrawCircleDirect(X,Y,R,Clip); 

Parameters X,Y : screen coordinates of point at center of circle or 

ellipse 
R : radius of circle or ellipse 
Clip : enables/disables clipping 

Function DrawCircleDirect draws a circle or ellipse, with the radius 

measured in X units of the screen. If Clip is TRUE, the 
circle is clipped at window boundaries; if FALSE, the cir- 
cle is not clipped. 

Remarks This procedure is used for fast circle drawing. It should 

be used with caution, since it could cause drawing out- 
side the physical screen. DrawCircle should be used in 
applications where speed of operations is not crucial. 

Restrictions None 

See Also DrawCircle 

SetAspect 

Example DrawCircleDirect (100, 100,100, true); 

draws a circle at screen coordinates [100,100] with a 
radius of 100 pixels, without clipping at window boun- 
daries. 
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DrawCircleSegment [CIRCSEGM.HGH] 



Declaration 

Usage 
Parameters 



Function 



procedure DrawCircleSegnent(XCenter,YCenter:real;var XStart, 
YStart : real ; Inner , Outer , Angle , Area : real ; Text : 
WrkString; Option, Scale : lgyte ) ; 

DrawCircleSegment(XCenter,YCenter,XStart,YStart,lnner, 
Outer,Angle,Area,Text,Option, Scale); 



XCenter, YCenter 
XStart, YStart 

Inner 

Outer 

Angle 
Area 

Text 
Option 



Scale 



coordinates of point at center of circle 

coordinates of starting point of 

segment 

inner radius of label line in radius 

units 

outer radius of label line in radius 

units 

angle of segment in degrees 

numeric label corresponding to 

segment 

text label corresponding to segment 

display options 

Option = : no label 

Option = 1 : text label only 

Option = 2 : text and numeric label 

Option = 3 : numeric label only 

multiplier used to determine the size 

of label 



DrawCircleSegment draws an arc of a circle with optional 
text and numeric labels. The center of the circle is at 
coordinates [XCenter, YCenter] (world coordinates), and 
the starting point of the arc is at coordinates [XStart, 
YStarf\. The angle of the arc is passed directly in de- 
grees. A line segment pointing outwards from the arc is 
drawn starting at a distance Inner away from the arc, 
and continuing to a distance Outer. After the segment is 
drawn, the coordinates of the endpoint are passed back 
through the starting position variables. 
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Text and/or numeric labels can be added. A radial label 
line can be drawn from the center of the circle segment 
outward to any location; its inside starting point is 
specified by Inner and its outside radius by Outer. Inner 
and Outer are scaled radius values: a value of 1 specifies 
a point on the circle segment, 0.5 a point halfway 
between the circle segment and its center, and a value of 
2 indicates a point one radius distance outside the circle 
segment. A value of 1 for both inner and outer radii 
effectively disables the line so it does not appear. The 
outer radius determines where the label is to be placed. 
The Option parameter specifies whether to type text 
and/or numerics as the label; a value of specifies no la- 
bel, 1 specifies text label only, and 2, both text and 
numeric label. Labels are drawn in the 4x6-pixel charac- 
ter set. Scale determines the size of the characters in the 
label. 

Remarks If part of the segment lies outside the defined window 

boundaries and SetClippingOn has been called, the seg- 
ment is clipped at window boundaries. 

The aspect ratio is used by this procedure; see the 
SetAspect procedure. 

Restrictions If Inner or Outer is equal to 0, the label line is not drawn. 

See Also AspectFactor (constant) 

DrawCartPie 
DrawCircle 
DrawCircleDirect 
DrawPolarPie 
SetAspect 

Example DrawCircleSegnent(X,Y,ArcX,ArcY,l.l,1.4,30,2300, 'Capital 

gains: $\2,1) 
draws an arc starting at [ArcX.ArcY] that extends 30 
degrees counterclockwise, centered around coordinates 
[X,Y\. A line is added with label saying Capital gains: 
$2300 in 4x6-pixel characters. 
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DrawCross [KERNEL.SYS] 

Declaration procedure DrawCross(X, Y, Scale : integer) ; 

Usage DrawCross(X,Y,Scale); 

Parameters X, Y : coordinates of point at center of cross 

Scale : multiplier for specifying size of cross 

Function DrawCross draws a cross ( + ) at coordinates [X, Y]. The 

size of the cross is approximately 2* Scale X 2* Scale. 

Remarks This procedure is primarily for internal use of the graph- 

ics system; it is used by DrawPolygon to mark lines. 

Restrictions None 

See Also DrawCrossDiag 

DrawDiamond 
DrawStar 
DrawWye 

Example DrawCross(LJ7,42,5); 

draws a cross at screen coordinates [137,42]. 
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DrawCrossDiag [KERNEL.SYS] 



Declaration procedure DrawCrossDiag( X, Y, Scale : integer ) ; 

Usage DrawCrossDiag(X,Y,Scale); 

Parameters X, Y : coordinates of point at center of cross 

Scale : multiplier for specifying size of cross 

Function DrawCrossDiag draws a diagonal cross (x) at coordi- 

nates [X,Y]. The size of the diagonal cross is approxi- 
mately 2* Scale X 2* Scale. 

Remarks This procedure is primarily for internal use of the graph- 

ics system; it is used by DrawPolygon to mark lines. 

Restrictions None 

See Also DrawCross 

DrawDiamond 

DrawStar 

DrawWye 

Example DrawCrossDiag( 89 , 70 , 8 ) ; 

draws a diagonal cross at screen coordinates [89,70]. 



TECHNICAL REFERENCE 



137 



DrawDiamond [KERNELSYS] 

DrawDiamond [KERNEL.SYS] 

Declaration proceckire Dra»Oiamond(X,Y,Scale:integer); 

Usage DrawDiamond(X,Y,Scale); 

Parameters X,Y : coordinates of point at center of diamond 

Scale : multiplier for specifying size of diamond 

Function DrawDiamond draws a diamond (O) at coordinates [X, Y\. 

The size of the diamond is approximately 2*Scale X 
2*Sca/e. 

Remarks This procedure is primarily for internal use of the graph- 

ics system; it is used by DrawPolygon to mark lines. 

Restrictions None 

Example Dravil)iamond(47 , 0,40,4) ; 

draws a diamond at screen coordinates [470,40]. 
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DrawHistogram [HISTOGRM.HGH] 

Declaration procedure DrawHistogram(A:PlotArray; N: integer); 

Hatching: boolean; HatchStyle: integer) ; 

Usage DrawHistogram(A,N, Hatching, HatchStyle); 

Parameters A : array of bar chart 

N : number of bars in chart 

Hatching : enable or disable hatching 
HatchStyle : density of hatching 

negative value = positive slope direction 
positive value = negative slope direction 

Data Format Bar chart data is passed in an array of the type Plot- 
Array, with the following form: 

yA[/,1] = not used 

A[i,2] = height of the /"th bar (/value) 

Function DrawHistogram can create many types of bar charts with 

different hatchings and an optional axis display. 

DrawHistogram draws a bar chart from an array, A, of 
real number values, [MaxPlotGlb,2]. DrawHistogram 
uses the [/,2] elements of the array to determine the 
height of each bar. The array is somewhat compatible 
with a polygon array, in that the Y axis components are 
displayed with constant increments in the X dimension. 
DrawHistogram calculates these increments from the 
window display width and the number of elements in the 
array to be displayed. The height of the histogram bars 
are scaled using the world coordinate system active at 
the time. The bars can be displayed in two modes: they 
can either be drawn from the bottom of the display area, 
or from the Y axis. When N, which specifies the number 
of bars in the chart, is positive, the bars are drawn from 
the bottom of the display area, and the absolute value 
function is applied. This forces all values to be positive, 
and thus prevents negative values from overwriting the 
ruler display when it is near the Y axis. When N is nega- 
tive, bars are drawn from the Y axis, and the actual posi- 
tive and negative values are used. 
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Remarks 
Restrictions 



If Hatching is TRUE, each bar is hatched. The density 
and direction of the hatch lines is determined by 
HatchStyle. The value of HatchStyle determines the 
number of pixels between hatch lines; a value of 1 gives 
solid bars with no hatching, with increasing values widen- 
ing the space between bars. The sign of the HatchStyle 
value determines the initial direction of hatching; hatching 
direction alternates with each consecutive bar. If 
HatchStyle is negative, the initial hatch line is drawn with 
a positive slope; if HatchStyle is positive, it is drawn with 
negative slope. 

The active window is entirely filled horizontally with the 
bar chart. 

The number of bars is limited by the constant 
MaxPlotGIb, as defined in the TYPEDEF.SYS file. 



See Also MaxPlotGIb (constant) 

Example Drav*Hstogram(BarChartPoints,^40,true,6); 

draws a bar chart with 40 bars in the active window. 
The bars may go up or down from the (invisible) horizon- 
tal axis, and they are hatched sparsely. 
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DrawLine [KERNEL.SYS] 

Declaration procedure DrawLine ( XI , Yl , X2 , Y2 : real ) ; 

Usage DrawLine(X1 ,Y1 ,X2,Y2); 

Parameters X1,Y1 : coordinates of starting point of line 

X2, Y2 : coordinates of end point of line 

Function DrawLine draws a line from [X1, Y1] to [X2, Y2] in the line 

style selected by the SetLinestyle procedure. 

Remarks The line is drawn in world coordinates unless the window 

mode is disabled with the SetWindowModeOff pro- 
cedure, in which case the line is drawn in absolute 
screen coordinates. With window mode enabled, any part 
of the line that lies outside the window boundaries is 
clipped. 

See Also DrawStraight 

SetLinestyle 

Restrictions None 

Example DrawLine(40, 107.5,99,50) 

draws a line between world coordinates [40,107.5] and 
[99,50]. 
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DrawLineClipped [KERNEL.SYS] 

Declaration procedure DrawLineClipped(Xl,Yl,X2,Y2: integer); 

Usage DrawLineClipped(X1 ,Y1 ,X2,Y2); 

Parameters X1,Y1 : coordinates of starting point of line 

X2, Y2 : coordinates of end point of line 

Function DrawLineClipped is a special procedure used to draw a 

line safely when the window mode is disabled with the 
SetWindowModeOff procedure. The line is drawn in ab- 
solute screen coordinates. 

Remarks This procedure clips a line at the active window bound- 

aries, regardless of whether window mode is on or off. 

Restrictions None 

See Also DrawLine 

Example DrawLineClipped( 1,1,199,199); 

draws a line between screen coordinates [1,1] and 
[199,199]. 
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DrawPoint [KERNEL.SYS] 

Declaration procedure DrawPoint(X, Y: real ) ; 

Usage DrawPoint(X.Y); 

Parameters X, Y : coordinates of point 

Function DrawPoint draws or redraws a point at coordinates 

[X,Y]. If window mode is enabled with the SetWin- 
dowModeOn procedure, the point is drawn in the active 
Window in world coordinates and is scaled accordingly; if 
window mode is disabled with the SetWindowModeOff 
procedure, the point is drawn in absolute screen coordi- 
nates. 

Remarks If clipping is enabled with the SetClippingOn procedure, 

the point is clipped (not displayed) if it lies outside the ac- 
tive window boundaries. 

See Also SetColorBlack 

SetColorWhite 

Restrictions None 

Example DrawPoint(35.9,50.2) 

draws a point at world coordinates [35.9,50.2]. 

For Phi:=0 To 359 Do 
DrawPoint(Phi,Sin(Phi*Pi/180) ) ; 

draws one cycle of a sine wave, with the world coordi- 
nate system defined by coordinates [0,-1] and [359,1]. 
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DrawPolarPie [PIE.HGH] (requires CIRCSEGM.HGH) 

Declaration procedure DrawPolarPie(XCtenter,YCenter,Radius, Angle, 

Inner, Outer: real; A: PieArray; N.Option, 
Scale: integer; 

Usage DrawPolarPie(XCenter,YCenter, Radius, Angle, Inner.Outer, 

A,N, Option, Scale); 

Parameters XCenter, YCenter : world coordinates of center point 

of circle 
Radius : radius of pie 

Angle : angle of first pie segment (in degrees) 

Inner : inner radius of label line in radius units 

Outer : outer radius of label line in radius units 

A : pie chart array 

N : number of circle segments 

Option : labeling options 

Option = : no label 
Option = 1 : text label only 
Option = 2 : text and numeric label 
Option = 3 : numeric label only 
Scale : multiplier for specifying size of label 

Data Format Pie chart data is passed to the procedure 
as an array of the following form: 

type Pie'Itype=record 

Area: real; 
Text:wrkstring; 
end; 
PieArray=array [1. .MaxPiesGlb] of PieTtype; 

Function DrawPolarPie draws a pie chart, referenced to its radius 

and the angle of its first segment, with optional text or 
numeric labels. Each segment's area and label are 
passed to the procedure in the PieArray, A, which 
defines the pie chart to be drawn. 

DrawPolarPie first determines each segment's proportion 
of the whole pie chart, then draws and labels the seg- 
ments. Each segment's percentage of the pie chart is 
determined by totaling the areas of all segments, then 
displaying each segment's area as a percentage of the 
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total area. Since this computation of percentage is not 
affected by the absolute values of the areas, any number 
system can be used for specifying the areas. A negative 
value for area causes the pie segment to move out radi- 
ally and be displayed separately from the rest of the pie 
chart. 

A line is drawn from each pie segment, starting at a dis- 
tance of Inner away from the center segment and ending 
at a distance of Outer. A text and/or numeric label can 
be drawn at the end of each segment line in the 4x6- 
pixel character set. Inner and Outer specify the inner and 
outer radii that the radial label line is to traverse, with 1 
being on the circle itself. Option specifies whether the 
area value and/or text is displayed; a value of desig- 
nates no label, 1 specifies text label only, and 2, text and 
numeric label. Scale specifies the size of the characters 
that make up the label. 

Remarks Pie segments are drawn in a clockwise direction. Any 

part of the pie chart that lies outside the window boun- 
daries is clipped if clipping is enabled with the SetClip- 
pingOn procedure. 

Note that the aspect ratio is applied to pie charts. The 
aspect ratio must be set to 1 with the SetAspect pro- 
cedure to ensure a circular pie chart. 

To draw a pie chart in reference to the starting point {X 
and /coordinates) of its first segment, use DrawCartPie. 

See Also DrawCartPie 

DrawCircleSegment 
PieArray (type) 
SetAspect 

Example DrawPolarPie( 100,100, 50, 45,1.1,1. 4, SalesFigures.9,2,1); 

draws a pie chart, with 9 sections, from the 
SalesFigures array. Its radius is 50, and its first segment 
has a 45 degree angle. Both numeric and text labels are 
attached to the pie with short lines. Labels are drawn in 
4x6-pixel characters without scaling. 
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DrawPolygon [POLYGON.HGH] 



Declaration 

Usage 
Parameters 



Data Format 



procedure DrawPolygon(A:PlotArray; First, Last, Code, Scale, 
Lines: integer); 

DrawPolygon(A,First,Last,Code,Scale,Lines); 



A 

First 

Last 

Code 

Scale 

Lines 



polygon vertex array (see data format) 

array index of first vertex to plot 

array index of last vertex to plot 

code of a graphic symbol 

multiplier for specifying size of symbol (scaling) 

choice of bar presentation 



The coordinates of the points of a polygon are passed in 
the global array PlotArray. The data type PlotArray is 
defined as follows: 



Function 



type PlotArray = array [1. .MaxPlotdb.l. .2] of real; 

MaxPlotGIb is a constant that gives the maximum 
number of vertices (points) of a polygon. This number is 
preset to 100, but may be changed to any number by 
editing the TYPEDEF.SYS file. 

The coordinates of the points must be presented in the 
following manner: 

/4[/,1] = X coordinate of the /"th point 
A[i,2] = /coordinate of the /'th point 

DrawPolygon draws a polygon using line segments with 
variable attributes and vertex symbols. The polygon is 
drawn in the active window in the current drawing color 
and line style. 

First and Last define the range of the array, A. When 
Last is negative, all drawings are clipped. This is useful 
after rotations, moves, scaling, or after the world coordi- 
nate system has been changed. When Last is positive, 
only symbols are clipped, and drawing takes places fas- 
ter than in the full clipping mode. 
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First specifies the array index of the first vertex to plot. If 
any of the following conditions are not fulfilled, an error 
occurs. 

First < abs(Lasf) 

First > 

abs(Lasf ) - First > 2 

Code specifies the code for a graphics symbol. If Code is 
a negative value, only symbols are displayed at vertices; 
if it is positive, symbols are displayed at vertices, and the 
vertices are connected with lines in the line style chosen 
by the SetLinestyle procedure. The following list shows 
the available symbols, along with their codes. 



Code Symbol 






line 


1 


( + ) 


2 


(X) 


3 


(□) 


4 


(■) 


5 


(0) 


6 


(Y) 


7 


(*) 


8 


(0) 


9 


(•) 


>9 


line 
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Remarks 

Restrictions 
See Also 
Example 



Scale determines the size of the symbol; its value must 
always be greater than 1 . 

Line determines whether or not vertical lines are drawn 
from the axis to the vertices. Options are: 

Line < : lines are drawn from V-zero-axis to 
each vertex 

Line = : no lines 

Line > : lines are drawn up from bottom of display area 
to each vertex 

To draw coordinate axes for the polygon, call Draw Axis 
before calling DrawPolygon. 

None 

PlotArray (type) 

DrawPolygon( Points, 10,30,8, 1,0) ; 

draws the 10th through 30th points of the Points array. 
Points are displayed as small circles, and are connected 
by lines drawn in the current line style. 
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DrawSquare [KERNEL.SYS] 



Declaration 

Usage 

Parameters 



Function 



Remarks 



Restrictions 



See Also 



Example 



procedure DrawSquare ( XI, Y1,X2,Y2: real; Fill: boolean); 
DrawSquare(X1 ,Y1 ,X2,Y2,Fill); 

X1, Y1 : world coordinates of point at upper left corner 

of rectangle 
X2.Y2: world coordinates of point at lower right corner 

of rectangle 
Fill : enables/disables filling of rectangle 

DrawSquare draws a rectangle, with point [X1, Y1] as the 
upper left corner and point [X2.Y2] as the lower right 
corner. The rectangle is drawn in the line style selected 
by the SetLineStyle procedure. When Fill is TRUE, the 
rectangle is filled with the current drawing color. 

To fill a square with a background pattern, define the 
square as a window and use SetBackground or 
SetBackground8. 

None 

DrawLine 
DrawStraight 
SetForegroundColor 
SetLinestyle 



DrawSquare ( 2 , 3 , 50 , 90 , true ) ; 

draws a solid rectangle defined by world coordinates 
[2,3] through [50,90} 
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DrawSquareC [KERNEL.SYS] 



Declaration 
Parameters 



Function 



Remarks 

Restrictions 
See Also 
Example 



procedure DrawSquareC ( XI, Y1.X2.Y2: integer; Fill: boolean); 

X1, Y1 : screen coordinates of point at upper left corner 

of rectangle 
X2, Y2 : screen coordinates of point at lower right corner . 

of rectangle 
Fill : enables/disables filling of rectangle 

DrawSquareC draws a rectangle, with coordinate 
[X1,Y1] at the upper left corner and coordinate [X2,Y2] 
at the lower right corner of the rectangle. The rectangle 
is drawn in screen coordinates, but is clipped at the 
boundaries of the active window. 

This procedure is used internally by the DrawBorder pro- 
cedure. 

None 

DrawSquare 

DrawSquareC(2,3,50,90, false) ; 

draws the part of the square (defined by screen coordi- 
nates [2,3] and [50,90]) that fits in the active window. 
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DrawStar [KERNEL.SYS] 



Declaration procedure DrawStar(X,Y,Scale:integer); 

Usage DrawStar(X,Y,Scale); 

Parameters X, Y : coordinates of center point of star 

Scale : multiplier for determining size of star 

Function DrawStar draws a six-pointed star (*) at coordinates 

[X,Y]. The size of the star is approximately 2* Scale X 
2* Scale (in pixels). 

Remarks This procedure is mainly for internal use by the graphics 

system; it is used by DrawPolygon for marking lines. 

Restrictions None 

See Also DrawCross 

DrawCrossDiag 

DrawDiamond 

DrawWye 

Example DrawStar(400, 130,30); 

draws a large star at screen coordinates [400,130]. 
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DrawStraight [GRAPHIX.SYS] 

Declaration procedure DrawStraight(Xl,X2,Y: integer); 

Usage DrawStraight(X1 ,X2,Y); 

Parameters X1 :X screen coordinate of starting point of line 

X2 :X screen coordinate of end point of line 
Y : Y screen coordinate of line 

Function DrawStraight draws a horizontal line from [X1,Y] to 

[X2, Y] in absolute screen coordinates; no clipping is per- 
formed. 

Remarks Although DrawLine can accomplish the same function as 

DrawStraight, this procedure performs the task of draw- 
ing horizontal lines much faster. DrawStraight is useful 
for speedy filling of squares. The line is always drawn in 
line style (See SetLinestyle). 

Restrictions None 

See Also DrawLine 

SetLinestyle 

Example DrawStraight(23,502,100); 

draws a long horizontal line between screen coordi- 
nates [23,100] and [502,100]. 
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DrawText [KERNEL.SYS] 

Declaration procedure DrawText(X,Y,Scale: integer; Text:WrkString); 

Usage DrawText(X,Y,Scale,Text); 

Parameters X, Y : coordinates of point at beginning of character string 

Scale : multiplier for specifying character size 
Text : character string 

Function DrawText draws the given string, Text, beginning at 

screen coordinates [X,Y\. The procedure uses the 4x6- 
pixel character set multiplied both vertically and horizon- 
tally by Scale. If an ESCape (character 27 decimal) is in 
the string, a particular symbol is drawn according to the 
next character in the string. 

There are eight possible symbols, corresponding to the 
sequences ESC 1 through ESC 8: 

1 = + 
2= X 

3 = D 

4 = B 

5 = 

6 = 'Y' 

7 = * 

8 = 

The symbols are drawn to the same scale as the text. 
The ESCape sequence can also be given in the form 
ESC n @ s, where n is a number between 1 and 8 and s 
is an integer value. In this case, ESC n designates which 
symbol to draw, while s specifies the scale of the sym- 
bol. For instance, the sequence ESC 1 @ 5 would draw 
a cross with a scale of 5. 

Remarks Text is clipped at active window boundaries if SetClip- 

pingOn has been called. 

Restrictions None 

See Also DrawTextW 
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Example DratfText( 100, 100,2, 'Some text'); 

draws the character string Some text beginning at 
screen coordinates [100,100], in 8x1 2-pixel characters. 

Dratfrext(250,19,3, "IMs is a diamond: , +air(27)+ , 5'; 

draws the character string This is a diamond O begin- 
ning at screen coordinates [250,19] in 12x1 8-pixel char- 
acters. 
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DrawTextW 

Declaration 

Usage 

Parameters 

Function 



Remarks 
Restrictions 
See Also 

Example 



procedure DrawTextW(X,Y, Scale: real; Text:WrkString); 

DrawTextW(X,Y,Scale,Text); 

X, Y : world coordinates of point at beginning of 

character string 
Scale : multiplier for specifying character size 
Text : character string 

DrawTextW draws the given string, beginning at world 
coordinates [X,Y], The procedure uses the 4x6-pixel 
character set multiplied both vertically and horizontally by 
Scale. If an ESCape (character 27 decimal) is in the 
string, a particular symbol is drawn according to the next 
character in the string. 

See DrawText for possible ESC sequence symbols. 

None 

DisplayChar 
DrawText 

DrawTextW(5.7,19.02,3,'This text starts at 
(5.7,19.02) in world coordinates'); 

draws the character string beginning at world coordi- 
nates (5.7,19.02) in the active window. 
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DrawWye [KERNEL.SYS] 

Declaration procedure DrawWye (X,Y, Scale : integer) ; 

Usage DrawWye(X,Y,Scale); 

Parameters X, Y : coordinates of center point of Y symbol 

Scale : multiplier for specifying size of symbol 

Function DrawWye draws a Y-shaped symbol at coordinates 

[X,Y]. The size of the Y is approximately 2* Scale X 
2*Sca/e. 

Remarks This procedure is mainly for internal use by the graphics 

system; it is used by DrawPolygon for marking lines. 

Restrictions None 

See Also DrawCross 

DrawCrossDiag 

DrawDiamond 

DrawStar 

Example DrawY!ye(50,90,4); 

draws a V-shaped figure at screen coordinates [50,90]. 
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EnterGraphic [GRAPHIX.SYS] 

Declaration procedure EnterGraphic; 

Usage EnterGraphic; 

Function EnterGraphic turns the graphics mode on and clears the 

screen. This procedure is normally called to reactivate 
the graphics mode after LeaveGraphic has been called. 

Remarks EnterGraphic does not initialize the graphics system; to 

do that, InitGraphic must be called. EnterGraphic also 
loads the system-dependent (higher quality) character set 
the first time it is called, and sets ConOutPtr to point to 
DisplayChar. 

After EnterGraphic is called, "black" will be true black 
and "white" will be true white, regardless of the graphics 
card installed. A call to SetBackgroundColor or SetFore- 
groundColor, followed by a call to EnterGraphic, will can- 
cel the colors set by the SetCoior procedures and set 
them to true black and white. 

Restrictions None 

See Also InitGraphic 

LeaveGraphic 

Example EnterGraphic; 

clears the screen, sets the colors to true black and 
white, and turns graphics mode on. 
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Error [KERNEL.SYS] 

Declaration procedure Error(Proc, Code); 

Usage Error(Proc,Code); 

Parameters Proc : address of procedure where error was detected 

Code : error code 

Function Error is called when an error is discovered by one of the 

Turbo Graphix procedures; the address of the procedure 
and an error code are given. If break mode is enabled 
with the SetBreakOn procedure, an error will halt the 
program and an error message and a trace of the ad- 
dresses of the procedures in the calling sequence that 
caused the error are displayed. If break mode is disabled 
with the SetBreakOff procedure, the Error procedure 
stores the error code for later examination when the 
GetErrorCode function is called. If message mode is en- 
abled with the SetMessageOn procedure, a message is 
displayed, regardless of SetBreakOn/Off. 

Remarks Error messages are displayed on line 25 of the screen. If 

SetBreakOn has been called, a list of addresses is 
displayed. The first address given is the location of the 
call to Error. If the compiler Option Find is used on the 
program, the compiler will display the statement 
Error(p,c) for the graphics procedure where the error was 
detected. The next number is the address of the state- 
ment that called the procedure that found the error. Each 
successive number is the caller of the previous pro- 
cedure. The last number points out the line in the main 
program that started the fatal calling sequence. 

Restrictions None 

See Also GetErrorCode 

SetBreakOff 
SetBreakOn 
SetMessageOff 
SetMessageOn 

Example Error(2,3); 

signals error code 3 in procedure 2. 
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FindWorld [FINDWRLD.HGH] 



Declaration procedure FindWorld( I: integer; A -.PlotArray; Nrinteger; 

ScaleX, ScaleY : real ) ; 

Usage FindWorld (I, A, N, ScaleX, ScaleY); 

Parameters / : index of world 

A : polygon array 

N : number of vertices in polygon array 
ScaleX : additional scaling factor in X direction 
ScaleY: additional scaling factor in Y direction 

Function FindWorld determines a world coordinate system for a 

polygon. The procedure finds the maximum and minimum 
X and /values used to draw a polygon, and then defines 
a world that either exactly encloses the polygon, or that 
is larger or smaller by some chosen percentage {ScaleX 
and ScaleY). FindWorld automatically executes 
DefineWorld and SelectWorld procedures after it deter- 
mines the appropriate world coordinate system. 

The / parameter selects the index of the world that is to 
be modified. The selected polygon, A, is passed in the 
PlotArray, with N specifying the number of vertices in the 
polygon. The X and Y dimensions can be multipled by 
ScaleX and ScaleY, respectively, to adjust the scaling of 
the world dimensions; this allows extra space around the 
polygon or changes its proportions. If no extra scaling is 
desired, ScaleX and ScaleY should be set to 1 . 

Remarks For a more complete description of the data structure for 

polygons of the type PlotArray, refer to the description 
for DrawPolygon. 

Restrictions None 

See Also DefineWorld 

DrawPolygon 
PlotArray (type) 
SelectWorld 

Example FindWorld(l,Diagram,30,l,2); 

sets a world coordinate system 1 , so that the 30-point 
polygon Diagram exactly fits the world horizontally, and 
half fills it vertically. 
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GetAspect [KERNEL.SYS] 

Declaration function GetAspect: real; 

GetAspect; 
GetAspect returns the current value of the aspect ratio. 



Usage 

Function 

Remarks 



See Also 

Restrictions 
Example 



See SetAspect for complete information on the aspect 
ratio. 

AspectFactor (constant) 
GetScreenAspect 
SetAspect 
SetScreenAspect 

None 

R:=GetAspect; 
R gets the current aspect ratio. 
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GetColor [KERNEL.SYS] 

Declaration function GetColor: integer; 

GetColor; 



Usage 
Function 

Remarks 

See Also 

Restrictions 
Example 



GetColor returns the drawing color: if the current color 
is "black", and 255 if it is "white". 

"Black" and "white" can be any color available to the 
particular graphics card installed. For more information 
on hardware configuration, see Chapter 1 and Appendix 
A. 

SetBackgroundColor 
SetColorBlack 
SetColorWhite 
SetForegroundColor 

None 

I:=GetColor; 

/ is if the current drawing color is black, or 255 if the 
current drawing color is white. 
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GetErrorCode [KERNEL.SYS] 

Declaration Amotion GetErrorCode: integer; 



Usage 
Function 



Remarks 
Restrictions 
See Also 



Example 



GetErrorCode; 

GetErrorCode returns the error code of the most recent 
error, or — 1 if no error occurred. A call to GetErrorCode 
resets the error code to — 1 . 

The error codes are: 

— 1 : No error 

: Error msg missing 

1 : Font file missing 

2 : Index out of range 

3 : Coordinates out of range 

4 : Too few array elements 

5 : Error opening file 

6 : Out of window memory 

7 : Value(s) out of range 

GetErrorCode should be called after the use of any rou- 
tine that could cause the errors listed above. 

The procedure or function that caused the error cannot 
be determined with this routine; see SetBreakOn. 

Error 

SetBreakOff 

SetBreakOn 

SetMessageOff 

SetMessageOn 

If GetErrorCode < >-l Then ShutDown; 

executes procedure ShutDown if any graphics error 
has occurred. 
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GetLineStyle [KERNEL.SYS] 

Declaration function GetLineStyle: integer; 

GetLineStyle; 



Usage 
Function 

Restrictions 
See Also 
Example 



GetLineStyle returns the current line style (selected by 
SetLineStyle), an integer from to 4, or 256 to 51 1 . 

None 

SetLineStyle 

I: -GetLineStyle; 

/ gets a value in the ranges 0..4 and 256..511, 
representing the current line style. 
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GetScreen [KERNEL.SYS] 

Declaration Amotion GetScreen: integer; 

Usage GetScreen; 

Function GetScreen returns the code corresponding to the RAM 

(virtual) or displayed screen currently in use (active): code 
1 if the displayed screen is active, or 2 if the RAM screen 
is active. 

Restrictions None 

See Also SelectScreen 

Example I:=GetScreen; 

/ is 1 if the displayed screen is the active screen, or 2 if 
the RAM screen is active. 
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GetScreenAspect [KERNEL.SYS] 

Declaration Amotion GetAspect:real; 

GetScreenAspect; 



Usage 
Function 

Remarks 

See Also 

Restrictions 
Example 



GetScreenAspect returns the current pixel value of the 
aspect ratio. 

See SetAspect for complete information on the aspect 
ratio. 

AspectFactor (constant) 
GetAspect 
SetAspect 
SetScreenAspect 

None 

R: =GetScreenAspect ; 
R gets the current aspect ratio, in pixels. 
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GetVStep [KERNEL.SYS] 

Declaration function GetVStep: integer; 

GetVStep; 



Usage 
Function 

Remarks 
Restrictions 
See Also 
Example 



GetVStep returns the current value of the step (single in- 
crement) for vertical window movement. 

See SetVStep for explanation of step. 

None 

SetVStep 

I: -GetVStep; 

/ is the current vertical step value. 
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GetWindow [KERNEL.SYS] 

Declaration function GetWindow: integer; 

GetWindow; 



Usage 
Function 

Restrictions 
See Also 
Example 



GetWindow returns the code number of the active win- 
dow (selected by SelectWindow). 

None 

SelectWindow 

I:=GetWindow; 
/ is the code number of the active window. 
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GotoXY [KERNEL.SYS] 

Declaration procedure GotoXY(X,Y: integer) ; 

GotoXY(X,Y); 
X, Y : coordinates of character 



Usage 

Parameters 

Function 



GotoXY positions the text cursor (invisible cursor that 
determines where next character is to be drawn) at coor- 
dinates [X, Y\. 

Remarks This procedure tells DisplayChar where to draw the next 

character, and thereby augments Turbo's normal 
GotoXY procedure. 

Restrictions None 

See Also DisplayChar 

GotoXYTurbo 

Example GotoXY(i,20); 

causes the cursor to be positioned at the first charac- 
ter on screen line 20. 
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GotoXYTurbo [KERNEL.SYS] 



Declaration procedure GotoXYTurbo (X,Y: integer); 

Usage GotoXYTurbo(X.Y); 

Parameters X, Y : coordinates of character 

Function GotoXYTurbo calls Turbo's GotoXY procedure, and aids 

the DisplayChar procedure by keeping track of the loca- 
tion of the X and Y coordinates of characters. 

Remarks This is an internal procedure. 

Restrictions None 

See Also DisplayChar 

GotoXY 

Example GotoXYTurbo ( 1 , 20 ) ; 

causes the cursor to be positioned at the first charac- 
ter of screen line 20; however, the graphics system is 
unaware of the cursor. 
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HardCopy [KERNEL.SYS] 

Declaration procedure HardCopy ( Inverse rboolean; Mode:byte); 

Usage HardCopy(lnverse,Mode); 

Parameters Inverse : enables/disables reverse video printout 

Mode : specifies print mode 

Function HardCopy supplies a printed copy of the active screen. If 

Inverse is TRUE, the image is printed with black and 
white reversed. Mode specifies the density of the printed 
image. Seven modes are available: 

0,4,5 = 640 points/line (Epson mode 4) 

1 = 960 points/line (Epson mode 1) 

2 = 960 points/line (Epson mode 2) 

3 = 1920 points/line (Epson mode 3) 
6 = 720 points/line (Epson mode 6) 

Remarks This procedure can be used with Epson printers of series 

MX, RX, and FX. Pre-FX series printers can be used, but 
with Mode 1 only. See the Epson printer manuals for 
more information. 

Restrictions Non-Epson printers are not supported. 

See Also Epson printer manuals 

SelectScreen 

Example HardCopy(false,3); 

causes the active screen to be printed in Epson graph- 
ics mode 3. 
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HardwarePresent [GRAPHIX.SYS] 



Declaration 

Usage 

Function 



Remarks 



Restrictions 

See Also 
Example 



function HardwarePresent: boolean; 



HardwarePresent; 



HardwarePresent checks whether or not the necessary 
graphics hardware is installed in the system (i.e., IBM 
Color graphics adapter for IBM version, Hercules card for 
Hercules version) and returns TRUE if found. If 
HardwarePresent is FALSE, an error occurs. 

This is an internal function called by InitGraphic. 

This function is useful in a program that uses graphics 
mode only for certain presentations. If HardwarePresent 
is FALSE, those graphic presentations are not available. 

If InitGraphic is called when HardwarePresent is FALSE, 
the program is terminated. 

InitGraphic 



If Not HardwarePresent Than 

WriteLn( 'No graphics board detected in your computer. 

another selection' ); 
Else 

Begin 

{Do Graphics} 
Bod; 



Mako 
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Hatch [HATCH.HGH] 

Declaration procedure Hatch(M,Yl,X2,Y2:real;Delta: integer); 

Usage Hatch(X1,Y1,X2,Y2,Delta); 

Parameters X1,Y1 : coordinates of point at upper left corner of rect- 

angle to be hatched 

X2,Y2: coordinates of point at lower right corner of rect- 
angle to be hatched 

Delta : distance between hatch lines 

Function Hatch shades a rectangular area of the screen defined 

by world coordinates [X1,Y1] and [X2,Y2]. The hatch 
pattern is formed with diagonal lines separated by a dis- 
tance of Delta. A Delta value of 1 gives solid hatching (no 
space between lines), a Delta value of 2 gives 50% filled 
space, a value of 3 gives 33 1 /3% filled space, and so on. 
If Delta is positive, the lines are drawn from the upper left 
to the lower right; if Delta is negative, the lines are drawn 
from the lower left to the upper right. 

Remarks If window mode is disabled with the SetWindowModeOff 

procedure, the rectangle is drawn in absolute screen 
coordinates. 

Restrictions None 

See Also DrawSquare 

Example Hatch(5,5,30,17,4); 

hatches part of the active window, defined by coordi- 
nates [5,5] and [30,17], with diagonal lines that fill Va of 
the given area. 
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InitGraphic [KERNEL.SYS] 

Declaration procedure InitGraphic; 

Usage InitGraphic; 

Function InitGraphic initializes the Turbo Graphix Toolbox. It must 

be called before any other graphics procedure or func- 
tion, but may only be called once within a program. Ini- 
tGraphic selects the displayed screen as the active 
screen and erases it. All windows and worlds are initial- 
ized. In addition, InitGraphic performs these functions: 

• Checks for the presence of appropriate graphics 
hardware 

• Reads in the error messages file 

• Reads in the 4x6-pixel character set 

• Allocates the RAM screen if RamScreenGIb is TRUE 
in the TYPEDEF.SYS file 

• Sets aspect ratio to machine-dependent default 

• Sets vertical window move step (increment) to 
machine-dependent default 

InitGraphic calls the following procedures: 

EnterGraphic; 

HardwarePresent; 

SelectWindow(l); 

SelectWorld(l); 

SelectScreen (1); 

SetAspect (AspectFactor); 

SetBackgroundColor (MinBackground); 

SetBreakOn; 

SetClippingOn; 

SetColorWhite; 

SetForegroundColor(MaxForeground); 

SetHeaderOff; 

SetHeaderToTop; 

SetLineStyle (0); 

SetMessageOn; 

SetWindowModeOn; 
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InitGraphic [KERNEL.SYS] 



Restrictions InitGraphic can be called only once within a program. 

See Also EnterGraphic 

LeaveGraphic 

Example InitGraphic; 

initializes the graphics system and turns on graphics 
mode. 
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InvertScreen [GRAPHIX.SYS] 

Declaration procedure InvertScreen; 

Usage InvertScreen; 

Function 



InvertScreen inverts the screen display by changing pix- 
els from black to white or white to black. 



Remarks "Black" and "white" can be any color available to the 

particular graphics card installed in your system. See 
Chapter 1 and Appendix A for more information on 
hardware configuration. 

Restrictions None 

See Also InvertWindow 

Example InvertScreen; 

changes each pixel on the active screen from "black" 
to "white", or from "white" to "black." 
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InvertWindow [WINDOWS.SYS] 

Declaration procedure InvertWindow; 

Usage InvertWindow; 

Function InvertWindow inverts the active window display by 

changing pixels from black to white or white to black. 

Remarks "Black" and "white" can be any color available to the 

particular graphics card installed in your system. See 
Chapter 1 and Appendix A for more information on 
hardware configuration. 

Restrictions None 

See Also InvertScreen 

Example InvertWindow; 

changes each pixel on the active window from "black" 
to "white," or from "white" to "black." 
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LeaveGraphic [GRAPHIX.SYS] 

Declaration procedure LeaveGraphic; 

LeaveGraphic; 



Usage 
Function 



Restrictions 
See Also 

Example 



LeaveGraphic turns the graphics mode off and returns 
the system to text mode (which was active before Ini- 
tGraphic was called). LeaveGraphic also sets ConOutPtr 
back to its previous value. 

None 

EnterGraphic 
InitGraphic 

LeaveGraphic; 

turns graphics mode off and text mode on. 
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LoadScreen [GRAPHIX.SYS] 

Declaration procedure LoadScreen( FileName : WrkString ) ; 

Usage LoadScreen(FileName); 

Parameters FileName: screen file name (as saved on disk) 

Function LoadScreen opens the file containing a graphics screen, 

named FileName, and reads the screen onto the active 
RAM or displayed screen. 

Restrictions Screens saved with one version of the Turbo Graphix 

Toolbox are not necessarily compatible with any other 
version. See Appendix A for more on system compatibili- 
ty- 
See Also SaveScreen 
StoreScreen 

Example LcadScreen(' SCREEN.].'); 

loads the contents of the file SCREEN. 1 into the active 
screen. 
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LoadWindow [WINDOWS.SYS] 

Declaration procedure LoadWindow(I,X,Y: integer; FileName :WrkString); 

Usage LoadWindow(l,X,Y,FileName); 

Parameters / : index of window to be loaded 

X, Y : world coordinates of point where window is 

loaded 
FileName : window file name (as stored on disk) 

Function LoadWindow loads a window, /, named by FileName, to 

position [X, Y] (world coordinates). If X or Y is negative, 
the previous (saved) Xor Y coordinate value is used (i.e., 
the negative value is ignored.) The window is loaded into 
the active window, thereby erasing the contents of the 
old window. 

Remarks FileName can include both the filename and an exten- 

sion, and a disk drive declaration (e.g., b: filename.xxx). 
Windows saved with different versions of the Turbo Gra- 
phix Toolbox are compatible. However, this is not the 
case for the LoadScreen procedure. 

Restrictions If a negative value is given for X or Y, the previous 

(saved) value for that coordinate is used. 

See Also LoadScreen 

SaveScreen 
SaveWindow 

Example LoaxJWindow(3.-l,20, 'WINDOW. 3' ) ; 

loads the contents of the file WINDOW.3 into window 
3, using the X position previously stored in the file, and 
the new Y position (20). 
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LoadWindowStack [WINDOWS.SYS] 

Declaration procedure LoadWindowStack(FileName:Wr^String); 

Usage LoadWindowStack(FileName); 

Parameters FileName: filename of window stack (as stored on disk) 

Function LoadWindowStack stores a window stack, named 

FileName, from disk to window memory. This procedure 
automatically searches for two files, FileName.STK (file 
containing the stack) and FileName.PTR (a pointer file); 
therefore, you should not add an extension to FileName. 

Remarks When loading a window stack from a floppy or hard disk, 

the entire contents of the existing window stack are de- 
stroyed. 

Restrictions Window stacks saved by different versions of the Turbo 

Graphix Toolbox will not necessarily be compatible. See 
Appendix A for more information on compatibility 
between systems. 

See Also LoadWindow 

SaveWindow 
SaveWindowStack 

Example LoaxmndowStack( ' STACK' ) ; 

loads a window stack from the files STACK.STK and 
STACK. PTR. 
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MoveHor [WINDOWS.SYS] 

Declaration procedure MoveHor( Delta: integer; FillOut: boolean); 

Usage MoveHor(Delta.FillOut); 

Parameters Delta : distance window is moved 

FillOut enable/disable copy from RAM screen 

Function MoveHor moves the active window horizontally by Delta 

steps (8 pixels per step). If FillOut is FALSE, the area 
that used to be under the window is filled with the oppo- 
site of the current color; if FillOut is TRUE, and there is a 
RAM screen allocated {RamScreenGIb is TRUE in 
TYPEDEF.SYS), the area is filled with the corresponding 
area of the inactive screen. Thus, to move a window over 
a background, the background must be stored in the 
inactive screen (with CopyScreen) before the window to 
be moved is drawn on the active screen. The back- 
ground is then copied from the inactive screen as the 
window moves. 

Restrictions None 

See Also MoveVer 

SetBackground 

Example MoveHor(-7,false); 

moves the active window by 7 X window definition 
coordinates (56 pixels) to the left, filling the former loca- 
tion of the window with the opposite of the current draw- 
ing color. 
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MoveVer [WINDOWS.SYS] 

Declaration procedure MoveVer(Delta: integer; FillOut: boolean); 

Usage MoveVer(Delta, FillOut); 

Parameters Delta : distance window is moved 

FillOut : enable/disable copy from RAM screen 

Function MoveVer moves the current window vertically by Delta 

steps (1 pixel per step). If FillOut is FALSE, the area that 
used to be under the window is filled with the opposite of 
the current color; if FillOut is TRUE, and there is a RAM 
screen allocated (RamScreenGIb is TRUE in 
TYPEDEF.SYS file), the area is filled with the 
corresponding area of the inactive screen. Thus, to move 
a window over a background, the background must be 
stored to the inactive screen (with CopyScreen) before 
the window to be moved is drawn on the active screen. 
The background is then copied from the inactive screen 
as the window moves. 

Remarks SetVStep can be called to specify the number of pixels 

to move a window vertically at one time; this will speed 
the vertical movement of the window. For example, if 
Delta is 1 and VStep is 3, the window will move 3 times 
by 3, then once by 1, for a total move of 10 pixels (in the 
time a 4-pixel move would take without the use of 
SetVStep). 

Restrictions None 

See Also MoveHor 

Example MoveVer(20,true); 

moves the active window 20 pixels toward the bottom 
of the screen, filling the former location of the window 
with the contents of the same location on the inactive 
screen. 
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PD [GRAPHIX.SYS] 



Declaration Amotion FD(X,Y) :boolean; 

Usage PD(X,Y); 

Parameters X, Y: screen coordinates of point 

Function PD checks whether a point has been drawn at screen 

coordinates [X,Y]. PD returns TRUE if a point exists at 
[X,Y] in the current drawing color; otherwise, it returns 
FALSE. 

Restrictions None 

See Also DrawPoint 

PointDrawn 

Example B:=PD(5,5); 

B is TRUE if the point at screen coordinates [5,5] is set 
to the current drawing color. 

PointCount:=0 

For X:=0 To XScreenMaxGlb Do 
For Y:=0 To YMaxGlb Do 
If PD(X.Y) Then PointCount:=PointCount+l; 

This program counts the number of points on the 
screen. 
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PointDrawn [GRAPHIX.SYS] 

Declaration Amotion PointDrawn(X,Y) :boolean; 

Usage PointDrawn(X,Y); 

Parameters X, Y: world coordinates of point 

Function PointDrawn checks whether or not a point has been 

drawn at world coordinates [X,Y]. PointDrawn returns 
TRUE if a point exists at [X,Y] in the current drawing 
color; otherwise, it returns FALSE. 

Restrictions None 

See Also DrawPoint 

PD 

Example B:=PointDrawn (12.3,17.8) 

B is TRUE if the point at world coordinates [12.3,17.8] 
is set in the current drawing color. 



184 Turbo Graphix Toolbox Owner's Handbook 



RedefineWindow [KERNELSYS] 



RedefineWindow [KERNEL.SYS] 

Declaration procedure RedefineWindow(I,3{Low,YLow,XHi,YHi:integer); 

Usage RedefineWindow(l,XLow,XHi,YHi); 

Parameters / : index of window [1 ..MaxWindowsGIb] 

XLow : X value of upper left window position 

[O..XMaxGlb] 
YLow : Y value of upper left window position 

[O..YMaxGlb] 
XHi : X value of lower right window position 

[\..XMaxGlb] 
YHi : Y value of lower right window position 

[O..YMaxGlb] 

Function RedefineWindow redefines the dimensions of an existing 

window, /. The window is defined as a rectangle with the 
upper left corner at [XLow.YLow] and the lower right 
corner at [XHi,YHi\. The previously defined window 
header is not affected by RedefineWindow. 

Remarks The X coordinates of a window are defined in 8-pixel 

chunks; i.e, windows are placed on byte boundaries in 
memory. If RedefineWindow is called with parameters 
(1,10,10,19,19), the defined window is 10 pixels tall and 
80 pixels wide. 

Restrictions The value of / must be between 1 and MaxWindowsGIb 

(as defined in the TYPEDEF.SYS file), all coordinates 
must lie within the physical screen, and the Low coordi- 
nates must be lower in numeric value than the Hi coordi- 
nates; otherwise, an error will occur. 

See Also DefineWindow 

SelectWindow 

Example RedefineWindow(4,5,5, 10, 10) ; 

redefines window 4 , with upper left corner at window 
definition coordinates [5,5] and lower right corner at 
[10,10] (screen coordinates [40,5] and [87,10]). 

RedefineWindow(2,0,0,XMaxGlb div 2,YMaxGlb div 2); 

redefines window 2 as the upper left quarter of the 
screen. 
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RemoveHeader [KERNEL.SYS] 

Declaration procedure RemoveHeader(I: integer); 

Usage RemoveHeader(l); 

Parameters / : index for window 

Function RemoveHeader removes the header from window /. As 

with DefineHeader, this procedure has no effect on the 
display of the header; the header is erased only when 
DrawBorder is called again. 

Remarks Once the header is removed, the drawing area of the 

window will include the part of the window that had been 
occupied by the header. 

Restrictions None 

See Also DefineHeader 

DrawBorder 
SetHeaderOn 
SetHeaderToBottom 
SetHeaderToTop 

Example RemoveHeader(8) ; 

removes the header of window 8, so that a subsequent 
call to DrawBorder will not draw the header. 
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ResetWindowStack [WINDOWS.SYS] 

Declaration procedure ResetWindowStack; 

Usage ResetWindowStack; 

Function ResetWindowStack erases all windows contained in 

memory. All windows saved in the window stack are dis- 
carded, and all the space allocated for the window stack 
becomes available for the storage of new windows. 

Remarks This procedure initializes the window stack in the same 

way as InitGraphic. It is especially useful for long pro- 
grams that require several different drawing environ- 
ments. 

Windows saved in the window stack are dynamically allo- 
cated with Turbo Pascal's GetMem and FreeMem pro- 
cedures. Because of this, the Mark/Release method of 
memory management must not be used. 

Restrictions None 

See Also InitGraphic 

ResetWindows 
ResetWorlds 
RestoreWindow 
StoreWindow 

Example ResetWindowStack; 

discards any windows saved on the window stack. 



TECHNICAL REFERENCE 



187 



ResetWindows [KERNELSYS] 
ResetWindows [KERNEL.SYS] 

Declaration procedure ResetWindows; 

Usage ResetWindows; 

Function ResetWindows sets all windows to the size of the 

screen, selects Window 1 (see the SelectWindow pro- 
cedure), and removes all headers. This procedure does 
not affect the current screen display, but further draw- 
ings will be scaled according to absolute screen coordi- 
nates. 

Remarks This procedure resets windows in the same way as Init- 

Graphic. 

Restrictions None 

See Also InitGraphic 

ResetWindowStack 

ResetWorlds 

SelectWindow 

Example ResetWindows; 

sets all windows to the size of the screen. 
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ResetWorlds [KERNEL.SYS] 

Declaration procedure ResetWorlds; 

ResetWorlds; 



Usage 
Function 



Remarks 

Restrictions 
See Also 

Example 



ResetWorlds sets all worlds to the size of the physical 
screen and selects World 1. (See the SelectWorld pro- 
cedure.) Further drawings will be scaled to absolute 
screen coordinates. 

This procedure resets worlds in the same way as Init- 
Graphic. 

None 

InitGraphic 
ResetWindows 
ResetWindowStack 
SelectWorld 

ResetWorlds; 
sets all worlds to the size of the screen. 
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RestoreWindow [WINDOWS.SYS] 

Declaration procedure RestoreWindow( I,DeltaX,DeltaY: integer) ; 

Usage RestoreWindow(l,DeltaX,DeltaY); 

Parameters / : index of window [1 ..MaxWindowsGIb] 

DeltaX: X offset 
DeltaY: Y offset 



Function 



Restrictions 
See Also 

Example 



RestoreWindow takes a window, /, that was stored in 
the window stack with the StoreWindow procedure and 
places it on the screen. If / is negative, the restored win- 
dow is then discarded from the window stack. If no 
saved window is available under the given index number, 
an error will occur. The DeltaX and DeltaY parameters 
give the X and Y offsets used to position the window on 
the screen. A value of for both DeltaX and DeltaY posi- 
tions the window in the same place it was when it was 
saved with StoreWindow. A value of 1 for both DeltaX 
and DeltaY moves the window horizontally by 8 pixels 
and vertically by 1 pixel. 

The value of / must lie between 1 and the constant 
MaxWindowsGIb (defined in TYPEDEF.SYS file). 

ClearWindowStack 

LoadWindow 

StoreWindow 

RestoreWindow(4, 10, ) ; 

restores the saved copy of window 4 to the active 
screen, at its previous Y position but 10 X window 
definition coordinates (80 pixels) to the right of its previ- 
ous X position. 
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RotatePolygon [MODPOLY.HGH] 

Declaration procedure RotatePolygon(A:PlotArray; N: integer; 

Angle: real); 

Usage RotatePolygon(A,N,Angle); 

Parameters A : polygon array to be rotated 

N : number of polygon vertices 
Angle : rotation angle in degrees 

Function RotatePolygon rotates a polygon A, containing N ver- 

tices, around its center of gravity in a counterclockwise 
direction by Angle degrees. The center of gravity is cal- 
culated with the assumption that each vertex has equal 
weight. 

Remarks When displaying a rotated polygon using DrawPolygon, 

the number of vertices should be given as a negative 
value; this guarantees that the polygon will be clipped at 
window boundaries. 

Use RotatePolygonAbout to rotate a polygon about an 
arbitrary point. 

Restrictions None 

See Also DrawPolygon 

RotatePolygonAbout 

ScalePolygon 

TranslatePolygon 

Example PotatePolygon(Image, 45,77.5); 

changes the values of the 45 coordinate pairs in Image 
so that the polygon is rotated 37.5 degrees clockwise 
about its center of gravity. 
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RotatePolygonAbout [MODPOLY.HGH] 

Declaration procedure FtotatePolygoiiAbout(A:PlotArray; N: integer; 

Angle,X,Y:real); 

Usage RotatePolygonAbout(A,N,Angle,X,Y); 

Parameters A : polygon array to be rotated 

N : number of polygon vertices 
Angle : rotation angle in degrees 
X, Y : world coordinates of point around which 
polygon is rotated 

Function RotatePolygonAbout rotates a polygon A containing N 

vertices about an arbitrary point [X,Y], in a counterclock- 
wise direction by Angle degrees. 

Remarks When displaying a rotated polygon with DrawPolygon, 

the number of vertices should be given as a negative 
value, to ensure clipping at window boundaries. 

Restrictions None 

See Also DrawPolygon 

RotatePolygon 
ScalePolygon 
TranslatePolygon 

Example RotatePolygonAbout (linage, 45, 37.5,30.5,99) ; 

changes the values of the 45 coordinate pairs in Image 
so that the polygon is rotated 37.5 degrees clockwise 
about world coordinages [30.5,99]. 
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SaveScreen [GRAPHIX.SYS] 



Declaration procedure SaveScreen ( FileName :WrkString); 

Usage SaveScreen(FileName); 

Parameters FileName: file name of screen (as saved on disk) 

Function SaveScreen stores a displayed or RAM screen on a 

floppy or hard disk. If a file with name FileName already 
exists, it is overwritten. 

Restrictions Screens saved with one version of the Turbo Graphix 

Toolbox are not necessarily compatible with any other 
version. 

See Also LoadScreen 

LoadWindow 
SaveWindow 

Example SaveScreen( 'PRETTY. PIC ) ; 

saves the active screen in a file called PRETTY.PIC. 
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SaveWindow [WINDOWS.SYS] 

Declaration procedure SaveWindow(I: integer; FileName :WrkString); 

Usage SaveWindow(l,FileName); 

Parameters / : index of window to be saved 

FileName : file name of window 

Function SaveWindow creates a file named by FileName, and 

saves window / in it. FileName can include an extension 
and a disk drive declaration (e.g., a.FileName.xxx) If a file 
named FileName already exists, it is overwritten. The 
size and position of the window are saved in the file, and 
are used when the window is loaded with LoadWindow, 
though the position can be changed if positive values are 
given for the X and Y coordinates when LoadWindow is 
called. 

Remarks Windows saved with different versions of the Turbo Gra- 

phix Toolbox will be compatible. 

Restrictions None 

See Also LoadScreen 

LoadWindow 
SaveScreen 

Example SaveWindow( 15, 'MENU.WIN' ) ; 

saves window 1 5 in a file called MENU. WIN. 
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SaveWindowStack [WINDOWS.SYS] 

Declaration procedure SaveWindowStack( FileName : WrkString) ; 

Usage SaveWindowStack(FileName); 

Parameters FileName : file name of window stack 



Function 



Restrictions 
See Also 

Example 



SaveWindowStack stores a window stack on a floppy or 
hard disk. The contents of the stack include all defined 
and stored windows. The procedure automatically 
creates two files with extensions, FileName. STK (window 
stack) and FileName.PTR (pointer file). For this reason, 
you should not specify an extension for FileName, 
although a disk drive declaration can be specified. If a file 
with name FileName exists, it is overwritten. 

Window stacks saved by different versions of the Turbo 
Graphix Toolbox will not necessarily be compatible. 

LoadWindow 

LoadWindowStack 

SaveWindow 

SaveWindowStack ('WSTACK'); 

saves any windows that are currently stored in the win- 
dow stack in two disk files, WSTACK.STK and 
WSTACK.PTR. 
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ScalePolygon [MODPOLY.HGH] 

Declaration procedure ScalePolygon(Var ArPlotArray; N: integer; 

XFactor.YFactor: real) ; 

Usage ScalePolygon(A,N, XFactor, YFactor); 

Parameters A : polygon array 

N : number of polygon vertices 

XFactor : multiplication factor (scaling) in X direction 

YFactor: multiplication factor (scaling) in /direction 

Function ScalePolygon scales the lines that make up a polygon A 

by a proportional amount (XFactor and YFactor) in both 
horizontal (X) and vertical (Y) directions. The X coordi- 
nate of each of the N vertices is multiplied by XFactor, 
and the /coordinate by YFactor. 

Remarks When drawing a scaled polygon using DrawPolygon, the 

number of vertices should be given as a negative value, 
to ensure clipping at window boundaries. 

Restrictions None 

See Also DrawPolygon 

RotatePolygon 
RotatePolygonAbout 
TranslatePolygon 

Example ScalePolygon(Image,35,2,0.5); 

changes the values of the 35 coordinate pairs in Image 
so that the polygon is stretched to twice its former width, 
and compressed to half its former height. 
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SelectScreen [KERNEL.SYS] 



Declaration procedure SelectScreen (I -.integer); 

Usage SelectScreen(l); 

Parameters /: displayed or RAM screen 

Function SelectScreen selects either the displayed or RAM screen 

for drawing. If / is 1 , the displayed screen is selected. If / 
is 2, the RAM screen is selected. 

Remarks The constant RamScreenGIb, defined in TYPEDEF.SYS, 

must be set to TRUE (the default) to enable a RAM 
screen. 

Restrictions Drawing is not visible on the RAM screen unless it is first 

copied to the displayed screen with CopyScreen or 
SwapScreen. 

See Also CopyScreen 

GetScreen 
SwapScreen 

Example SelectScreen( 1) ; 

selects the displayed screen for subsequent drawing. 
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SelectWindow [KERNEL.SYS] 

Declaration procedure SelectWindow( I : integer ) ; 

Usage SelectWindow(l); 

Parameters /: index of selected window ([1 ..MaxWindowsGIb]) 

Function SelectWindow selects a window / for drawing. All subse- 

quent drawing and window commands will refer to the 
selected window. 

Remarks If clipping is enabled with the SetClippingOn procedure, 

drawing is limited to the area inside the window. 

Restrictions The value of / must lie between 1 and the constant 

MaxWindowsGIb (defined in TYPEDEF.SYS FILE). 

If a world is to be associated with a window, SelectWorld 
must be called before SelectWindow. 

See Also DefineWindow 

SelectWorld 

Example SelectWindow( 5 ) ; 

selects window 5 for subsequent operations. 
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SelectWorld [KERNEL.SYS] 



Declaration procedure SelectWorld( I: integer); 

Usage SelectWorld(l); 

Parameters / : index of selected world ([1 ..MaxWorldsGIb]) 

Function SelectWorld selects a world coordinate system, /, for the 

drawing commands that follow. This procedure must be 
followed by SelectWindow to associate the world with a 
window. 

Restrictions The value of / must lie between 1 and the constant 

MaxWorldsGIb (defined in TYPEDEF.SYS file). 

See Also DefineWindow 

DefineWorld 
FindWorld 
SelectWindow 

Example SelectWbrld( 3 ) ; 

SelectWindow(4) ; 

selects window 4, with world coordinate system 3, for 
subsequent operations. 
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SetAspect [KERNEL.SYS] 

Declaration proce<±ire SetAspect(Aspect:real); 

Usage SetAspect(Aspect); 

Parameters Aspect, aspect ratio for circle 

Function SetAspect sets the value of the aspect ratio for drawing 

circles and ellipses. The default value for Aspect is the 
constant AspectFactor, defined in the GRAPHIX.SYS file. 
SetAspect (1 ) draws a true circle on any screen. 

Remarks The aspect ratio determines the shape of circles and el- 

lipses. Changing the aspect ratio changes how tall a cir- 
cle is. A machine-dependent constant, AspectFactor, 
specifies a ratio that should give a true circle for a partic- 
ular physical screen. Drawing the same circle with aspect 
ratios of AspectFactor^- 2, AspectFactor, and 
AspectFactor X 2 will give three figures of the same 
width, but each twice as tall as the previous figure. 

Restrictions None 

See Also AspectFactor (constant) 

DrawCartPie 
DrawCircleSegment 
DrawPolarPie 
GetAspect 
GetScreenAspect 
SetScreenAspect 

Example SetAspect(l); 

causes circles to be correctly proportioned on any 
screen. 
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SetBackground [GRAPHIX.SYS] 

Declaration procedure SetBackground( Pattern : byte ) ; 

Usage SetBackground(Pattern); 

Parameters Pattern: bit pattern used for background (0 to 255) 

Function SetBackground determines the background pattern of 

the active window. There are 256 possible patterns, 
represented by the value of Pattern. Shading patterns 
consist of an 8-bit word repeated across each horizontal 
line to fill the window. The lowest (1) bit of the pattern is 
the rightmost pixel on the screen, and the highest (128) 
is the leftmost. 

Remarks A Pattern value of creates a completely black back- 

ground (which erases the contents of the window), while 
a value of 255 creates a white background. 

Restrictions None 

See Also DrawSquare 

Example SetBackground(17); 

fills the active window with the pattern represented by 
the number 17: 00010001 binary (that is, 1 out of every 4 
points are drawn). 
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SetBackground8 [GRAPHIX.SYS] 

Declaration proceckire SetBackground8(Pattern:BackgroundArray); 

Usage SetBackground8(Pattern); 

Parameters Pattern: 8-byte background pattern 

Function SetBackground fills the active window with the specified 

bit pattern, Pattern. The BackgroundArray is an array of 
8 bytes. The lowest 3 bits of the screen line number are 
used to determine which byte of the array to use; i.e.,the 
array element is used on screen lines whose Y coordi- 
nates divide evenly by 8: for a screen line, Yi, array [Yi 
mod 8]. The lowest (1) bit of each byte of pattern is the 
rightmost, and the highest (128) is the leftmost pixel on 
the screen. 

Restrictions None 

See Also SetBackground 

Example Fbr I:«0 To 7 Do BackgroundPattern [I]:-I*I; 

SetBackground8(BackgroundPattern) ; 

This program fills the active window with the pattern 
below: 






o I 




1 1 


* 


4 I 


* 1 


9 1 


* * 


16 | 


* 1 


25 | 


** *i 


36 | 


* * 1 


49 | 
+- 


** *i 
+ 
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SetBackgroundColor [GRAPHIX.SYS] 

Declaration procedure SetBackgroundColor (Color: integer); 

Usage SetBackgroundColor(Color); 

Parameters Color : background color 

Function SetBackgroundColor chooses the background color 

("black") from the colors available to your particular 
graphics card. Its value lies between the constants 
MinBackground and MaxBackground (defined in the 
GRAPHIX.SYS file). 

Remarks InitGraphic and EnterGraphic always reset colors to true 

black and white. 

Restrictions For IBM versions, the value of SetBackgroundColor must 

be (true black) for the IBM color graphics adapter and the 
3270 PC, or can be between 1 and 15 for the PCjr or 
Enhanced Graphics Adapter; the value of SetForeground- 
Color can be between 1 and 15. For Hercules, SetBack- 
groundColor and SetForegroundColor must both be 0, al- 
ways black and white (or green or amber depending on the 
monitor). For Zenith, SetBackgroundColor must be (true 
black), while SetForegroundColor can range between 1 
and 7. Changing the colors changes the current display, 
and may have other system-dependent consequences; see 
Appendix A for more information. 

See Also Appendix A 

SetForegroundColor 

Example SetBackgroundColor (4); 

sets the color "black" to whatever color 4 represents 
for the particular graphics card installed. Any "black" im- 
ages currently displayed immediately change to color 4. 
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SetBreakOff [KERNEL.SYS] 

Declaration procedure SetBreakOff; 

Usage SetBreakOff; 

Function SetBreakOff turns break mode off. When break mode is 

enabled with the SetBreakOn procedure, system errors 
cause the program to halt. With break mode off, the pro- 
gram proceeds, and it is up to the programmer to check 
for errors. 

Remarks The default state is break mode on. 

GetErrorCode returns the code of the last error, or — 1 if 
no error has occurred since the last call to GetErrorCode. 
If a second error happens before the first is cleared, the 
first error code is lost. See Error for discussion. 

Restrictions None 

See Also Error 

GetErrorCode 
SetBreakOn 
SetMessageOff 
SetMessageOn 

Example SetBreakOff; 

causes the program to continue in the event of a 
graphics error. 
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SetBreakOn [KERNEL.SYS] 

Declaration procedure SetBreakOn; 

Usage SetBreakOn; 

Function SetBreakOn turns break mode on. When an error oc- 

curs, the program halts and the error routine takes con- 
trol of the program. The program counter value where 
the error occurred and an error code are displayed if 
SetMessageOn is enabled. 

Remarks The default state is break mode on. To allow a program 

to continue when an error occurs, SetBreakOff must be 
called. 

Restrictions None 

See Also Error 

GetErrorCode 
SetBreakOff 
SetMessageOff 
SetMessageOn 

Example SetBreakOn; 

causes graphics errors to abort the program. 
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SetClippingOff [KERNEL.SYS] 

Declaration procedure SetClippingOff; 

Usage SetClippingOff; 

Function SetClippingModeOff turns clipping mode off. All images 

are drawn in their entirety, regardless of window bound- 
aries. 

Remarks The default state is clipping mode on. 

SetClippingOff causes drawing to take place somewhat 
faster; however, this procedure should be used with cau- 
tion, since an attempt to draw outside window bound- 
aries using invalid coordinates can cause a system crash 
and/or overwriting of program memory. 

Restrictions None 

See Also Clip 

Clipping 
SetClippingOn 
SetWindowModeOff 
SetWindowModeOn 

Example SetClippingOff; 

allows drawings to spill over the boundaries of the ac- 
tive window. 
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SetClippingOn [KERNEL.SYS] 

Declaration procedure SetClippingOn; 

Usage SetClippingOn; 

Function SetClippingOn turns clipping mode on. If part of a draw- 

ing falls outside the boundaries of the active window, it is 
not drawn. 

Remarks The default state is clipping mode on. 

Drawing takes place somewhat slower in this mode than 
with SetClippingOff, but it is the safer procedure to use, 
since drawings are prevented from encroaching on pro- 
gram or data memory. 

Restrictions None 

See Also Clip 

Clipping 
SetClippingOff 
SetWindowModeOff 
SetWindowModeOn 

Example SetClippingOn; 

causes any part of a drawing that strays outside win- 
dow boundaries to be clipped. 
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SetColorBlack [KERNEL.SYS] 

Declaration procedure SetColorBlack; 

SetColorBlack; 



Usage 
Function 

Remarks 



Restrictions 



See Also 



Example 



SetColorBlack selects "black" as the current drawing 
color. All further text and graphics will be drawn in 
"black" until a call to SetColorWhite. 

Default drawing color is white. 

"Black" can be any background color supported by your 
graphics card, except true white; see SetForeground- 
Color. 

You may want to use the SetBackground procedure to 
fill a window with a non-black pattern before drawing in 
"black". 

When SetColorBlack has been called, the PointDrawn 
function will return TRUE if the specified point is drawn in 
black. 

For systems with color graphics cards, the color substi- 
tuted for "black" cannot be true white. 

DrawPoint 

GetColor 

PointDrawn 

SetBackground 

SetBackgroundColor 

SetColorWhite 

SetForegroundColor 

SetColorBlack; 

causes subsequent images to be drawn in "black" (the 
background color). 
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SetColorWhite [KERNEL.SYS] 

Declaration procedure SetColorWhite; 

SetColorWhite; 



Usage 
Function 

Remarks 



Restrictions 



See Also 



Example 



SetColorWhite selects "white" as the current drawing 
color. All further text and graphics will be drawn in 
"white" until a call to SetColorBlack. 

Default drawing color is white. 

"White" can be any foreground color supported by your 
graphics card, except true black; see SetForeground- 
Color. 

You may want to use SetBackground to fill a window 
with a non-white pattern before drawing in white. 

When SetColorWhite has been called, the PointDrawn 
function returns TRUE when the specified point is drawn 
in white. 

On systems with color graphics cards, the color 
represented by "white" cannot be true black. 

DrawPoint 

GetColor 

PointDrawn 

SetBackground 

SetBackgroundColor 

SetColorBlack 

SetForegroundColor 

SetColorWhite; 

causes subsequent images to be drawn in "white" (the 
foreground color). 
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SetForegroundColor [KERNEL.SYS] 



Declaration 
Usage 
Parameters 
Function 

Remarks 



Restrictions 
See Also 

Example 



procedure SetForegroundColor ( Color : integer ) ; 

SetForegroundColor(Color); 

Color, color of displayed text and graphics 

SetForegroundColor selects the drawing color from the 
colors available to your particular graphics card. Its value 
lies between the constants MinForeground and MaxFore- 
ground (defined in GRAPHIX.SYS). 

InitGraphic and EnterGraphic always reset colors to true 
black and white. 

See the discussion under SetBackgroundColor for more 
information. 

See SetBackgroundColor. 

SetBackgroundColor 

SetColorBlack 

SetColorWhite 

SetForegroundColor(9) ; 

sets the color "white" as whatever color 9 represents 
on the particular graphics card installed. Any "white" im- 
ages currently displayed immediately change to color 9. 
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SetHeaderOff [KERNEL.SYS] 

Declaration prooedure SetHeaderOff; 

Usage SetHeaderOff; 

Function SetHeaderOff suppresses the display of window headers 

and footers until a call to SetHeaderOn. This means that 
DrawBorder will not display any header or footer unless 
SetHeaderOn has been called. 

Remarks The default state is header mode off. 

Windows currently displayed on the screen are not 
affected by SetHeaderOff. 

See DefineHeader for how to define headers. 

Restrictions None 

See Also DefineHeader 

DrawBorder 
RemoveHeader 
SetHeaderOn 
SetHeaderToBottom 
SetHeaderToTop 

Example SetHeaderOff; 

subsequent calls to DrawBorder will not draw a header 
for any window, even if a header is defined. 
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SetHeaderOn [KERNEL.SYS] 

Declaration procedure SetHeaderOn; 

SetHeaderOn; 



Usage 
Function 

Remarks 



Restrictions 
See Also 



Example 



SetHeaderOn allows window headers and footers to be 
displayed when DrawBorder is called. 

Default state is header mode off. 

SetHeaderOn does not affect windows currently 
displayed on the screen. 

See DefineHeader for how to define window headers. 

None 

DefineHeader 

DrawBorder 

RemoveHeader 

SetHeaderOff 

SetHeaderToBottom 

SetHeaderToTop 

SetHeaderOn; 

subsequent calls to DrawBorder will draw a header for 
any window for which a header is defined. 
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SetHeaderToBottom [KERNEL.SYS] 

Declaration procedure SetHeaderToBottom; 

SetHeaderToBottom; 



Usage 
Function 

Remarks 



Restrictions 
See Also 



Example 



SetHeaderToBottom displays all headers at the bottom 
edge of windows, i.e., as footers, when DrawBorder is 
called. 

Headers are displayed at the top of windows by default. 

This procedure does not affect windows currently dis- 
played on the screen. 

See DefineHeader for how to define window headers. 

None 

DefineHeader 

DrawBorder 

RemoveHeader 

SetHeaderOff 

SetHeaderOn 

SetHeaderToTop 

SetHeaderToBottom; 

subsequent calls to DrawBorder will draw window 
headers at the bottom of windows. 
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SetHeaderToTop [KERNEL.SYS] 

Declaration procedure SetHeaderToTop; 

SetHeaderToTop; 



Usage 
Function 

Remarks 



Restrictions 
See Also 



Example 



SetHeaderToTop allows window headers to be drawn at 
the top edge of windows when DrawBorder is called. 

Headers are displayed at the top of windows by default. 

SetHeaderToTop does not affect windows currently 
displayed on the screen. 

See DefineHeader for how to define window headers. 

None 

DefineHeader 

DrawBorder 

RemoveHeader 

SetHeaderOff 

SetHeaderOn 

SetHeaderToBottom 

SetHeaderToTop; 

subsequent calls to DrawBorder will draw window 
headers at the top of windows. 
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SetLineStyle [KERNEL.SYS] 

Declaration procedure SetLineStyle (LS: integer); 

Usage SetLineStyle(LS); 

Parameters LS: one of five possible line styles 

Function SetLineStyle selects one of five available line styles for 

drawing lines; custom patterns can also be designed. 
Patterns consist of eight repeating pixels. The five 
predefined patterns are: 



0: 


**************** 


(unbroken line) 


1: 


* * 


* * 


(dotted line) 


2: 


***** 


***** 


(dashed line) 


3: 


*** * 


*** * 


(dash-dot-dash-dot) 


4: 


*** *** 


*** *** 


(short dashes) 



Any integer value larger than 4 is interpreted according to 
the modulo function; that is, the high-order byte of the in- 
teger is discarded, and the remaining 8 bits specify the 
pattern to be repeated. The lowest bit comes first. Thus, 
a linestyle of 100 decimal is 01100100 binary, for a line- 
style of 



Remarks GetLineStyle returns the linestyle as a value of to 4 for 

the predefined patterns, and 256 + pattern for custom 
patterns. 

Restrictions None 

See Also GetLineStyle 

Example SetLineStyle ( 1 ) ; 

sets the line style to pattern 1 , a dotted line. 

SetLineStyle (117); 

sets the line style to the bit pattern represented by de- 
cimal 1 1 7, binary 01 1 1 01 01 , as follows: 

*** * * *** * * 



TECHNICAL REFERENCE 



215 



SetMessageOff [KERNEL.SYS] 



SetMessageOff [KERNEL.SYS] 

Declaration procedure SetMessageOff; 



Usage 
Function 



SetMessageOff; 

SetMessageOff suppresses the display of complete error 
messages. However, if break mode is enabled with the 
SetBreakOn procedure, a brief, non-explanatory mes- 
sage is displayed. The following table shows how error 
messages are handled by SetMessageOff and SetMes- 
sageOn, in conjunction with SetBreakOn and 
SetBreakOff. 



SetMessageOn 



SetMessageOff 



SetBreakOn 
Enabled 



SetBreakOff 
Enabled 



Complete error message 
including traceback 
displayed; halts. 



Complete error message 
displayed on line 24; 
program continues with 
no traceback. 



'Graphics error ", proc, 
code displayed; 
program halts. 



No message; program 
continues. 



Remarks The default state is message mode on. 

The reason a brief message is displayed with SetMes- 
sageOff is so that, if you sell a program written with the 
Turbo Graphix Toolbox, your end users can provide you 
with information about the cause of an error. 

Restrictions None 

See Also Error 

GetErrorCode 

SetBreakOff 

SetBreakOn 

Example SetMessageOff; 

if break mode is off, errors will not cause error mes- 
sages to be displayed. If break mode is on, only a brief 
error message is displayed before the program is abort- 
ed. 
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SetMessageOn [KERNEL.SYS] 

Declaration procedure SetMessageOn; 

Usage SetMessageOn; 

Function SetMessageOn allows complete error messages to be 

displayed, whether break mode is enabled or not. See 
the table under SetMessageOff for an explanation of 
how error messages are handled by the SetMessage 
procedures. 

Remarks Default state is message mode on. 

Restrictions None 

See Also Error 

GetErrorCode 
SetBreakOff 
SetBreakOn 
SetMessageOff 

Example SetMessageOn; 

If break mode is off, errors will cause error messages 
to be displayed on screen line 24. If break mode is on, 
error messages will include the name of the procedure 
and the nature of the error, along with a a traceback. 
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SetScreenAspect [KERNEL.SYS] 

Declaration procedure SetScreenAspect (Aspect: real); 

Usage SetScreenAspect(Aspect); 

Parameters Aspect aspect ratio for circle, in pixels 

Function SetScreenAspect sets the value of the aspect ratio, in 

pixels, for drawing circles and ellipses. SetScreen- 
Aspect^) makes a circle or ellipse that is equal in pixel 
width and height. 

Remarks This procedure is used for applications in which you need 

to create a circle or ellipse that is proportional in terms of 
pixels. Note that such a circle is not necessarily correctly 
proportioned when viewed on the screen; a certain 
number of consecutive pixels displayed horizontally is 
quite a bit shorter in length than the same number verti- 
cally. An aspect ratio of about 0.6 often gives a truer cir- 
cle on the screen. Use SetAspect to draw visually pro- 
portioned circles on a particular screen. 

Restrictions None 

See Also AspectFactor (constant) 

DrawCartPie 
DrawCircleSegment 
DrawPolarPie 
GetAspect 
GetScreenAspect 
SetAspect 

Example SetScreenAspect ( 1 ) ; 

causes circles to have the same number of vertical as 
horizontal pixels. 
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SetVStep [KERNEL.SYS] 

Declaration procedure SetVStep(Step: integer); 

Usage SetVStep(Step); 

Parameters Step : number of vertical pixels moved by a window at 

one time 

Function SetVStep specifies the vertical distance, in pixels, that a 

window moves at one time. Step can be any integer value 
larger than 0. Small Step values cause smooth, slower 
window movement, while larger values cause fast- 
er, but somewhat jerkier movement. 

Remarks The default value for VStep depends on the resolution 

produced by the particular graphics card installed in your 
system. This default value is set by the constant IVStep 
in GRAPHIX.SYS. See Appendix A for more information 
on hardware configurations. 

If a window is moved a distance that is not a multiple of 
the current VStep value, it is moved by multiples of 
VStep towards its destination, then one final, variable- 
length Step to reach its destination. See MoveVer. 

Restrictions The value for Step must be a positive integer. 

See Also Appendix A 

MoveVer 

Example SetVStep(12); 

causes vertical window movement (with the MoveVer 
procedure) to take place in 1 2-pixel increments. 
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SetWindowModeOff [KERNEL.SYS] 

Declaration procedure SetWindowModeOff ; 

Usage SetWindowModeOff; 

Function SetWindowModeOff allows drawing to take place on the 

screen, in absolute screen coordinates, rather than in a 
window. Drawings are not clipped at window boundaries 
unless clipping is enabled with the SetClippingOn pro- 
cedure. 

Remarks Default state is window mode on. 

Since no clipping is performed when SetWindowModeOff 
has been called, drawing takes place somewhat faster. 
However, this procedure should be used with caution, 
since invalid coordinates can cause drawing to encroach 
on program memory or crash the system. 

Restrictions None 

See Also DefineWindow 

SelectWindow 
SetClippingOff 
SetClippingOn 
SetWindowModeOn 

Example SetWindowModeOff; 

turns window mode off, so that subsequent coordi- 
nates are calculated as screen coordinates, with no clip- 
ping at window boundaries. 
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SetWindowModeOn [KERNEL.SYS] 

Declaration procedure SetWindowModeOn; 

Usage SetWindowModeOn; 

Function SetWindowModeOn allows you to draw in a window, in 

world coordinates. Drawings are clipped at the active 
window boundaries if clipping is enabled with the SetClip- 
pingOn procedure. 

Remarks Default state is window mode on. 

Although drawing takes place somewhat slower with win- 
dow mode on, SetWindowModeOn is the safer pro- 
cedure to use, since clipping at window boundaries is 
possible and program memory therefore protected. 

Restrictions None 

See Also DefineWindow 

SelectWindow 
SetClippingOff 
SetClippingOn 
SetWindowModeOff 

Example SetWindowModeOn; 

turns window mode on, so that world coordinate sys- 
tems can be used, and drawings can be clipped at win- 
dow boundaries. 
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Spline [SPLINE.HGH] 



Declaration 

Usage 
Parameters 



Function 



procedure Spline( A: PlotArray; N:integer; Xl,XM:real; 
var B: PlotArray; M: integer); 

Spline(A,N,X1,XM,B,M); 

A : polygon array (base points) 

N : number of base points 

X1 : index value from which interpolation begins 

XM : index of value where interpolation ends 

B : resultant spline polygon array (to be filled with 

calculated spline) 
M : number of points to calculate in spline array 

When polygons are plotted with a few data points, the 
connection of these points sometimes results in a vague, 
angular representation of the true curve. One way to 
resolve this problem is to evaluate additional base points 
to smooth the graph plot. However, the calculation time 
involved in this method may be prohibitive. 

The spline functions use smoothing polynomials to gen- 
erate additional base points. Spline functions are stable 
in all parts of the definition interval and, unlike many oth- 
er polynomials, they do not tend to have strong oscilla- 
tions. 

The Spline procedure calculates smoothed curves from 
corresponding data. The number and density of the inter- 
polated points created by the spline function is arbitrary. 

To use the Spline procedure, first pass a PlotArray and 
the number of points in the array (A/). X1 and XM specify 
the starting and ending points, respectively, for the inter- 
polation. The PlotArray B receives the resultant interpo- 
lated curve. The calculated base points are evenly 
spaced between the starting and ending points of the in- 
put curve. 

The spline function is calculated with the following formula: 



Pn(x) = yi 



(x-x 2 ) • • • (x-x n ) 



(x l -x 2 ) 



+ 



+ y n 



(Xi-X n ) 



+ J 2 



(*-*,) (*-x 3 ) • • • (x-x n ) 



(x 2 -x,)(x 2 -x 3 ) 



(x 2 -x„) 



(X n —Xi) ■ • • (X„— AT„_,) 
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Restrictions For the base points of the interpolation the following con- 

ditions apply: 

X1 > X2 XN - 1 < XM 

X2/N — 1 represents the second/second to the last 
point of the polygon. The interpolation may only be car- 
ried out within that interval. 

Example Spline (RoughCurve, 10, 5.7,213, SmootherCurve, 50) ; 

interpolates a smoothed 50-point curve from the given 
10-point curve, over the X range of 5.7 to 213. 
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StoreWindow [WINDOWS.SYS] 

Declaration procedure StoreWindow(Window: integer); 

Usage StoreWindow(Window); 

Parameters Window: index of window to be saved 

[1 ..MaxWindowsGIb] 

Function StoreWindow saves a given window in the window stack. 

The procedure checks the window memory to see if 
sufficient space is available to store the window. If space 
is not available, an error occurs and the window is not 
stored. If a previously stored window and the active win- 
dow share the same index number, the active window 
overwrites the stored window. 

Remarks Storing a window does not affect the screen display. 

Stored windows are dynamically allocated on the heap 
with Turbo Pascal's GetMem and FreeMem procedures. 
Windows are always allocated in multiples of 1K (1024) 
bytes. Because the StoreWindow and RestoreWindow 
procedures use GetMem and FreeMem, your program 
must not use the Mark/Release method of memory 
management. 

Turbo Pascal's built-in function, MaxAvail can be used to 
determine whether a window will fit on the stack. 
MaxAvail returns the size of the largest chunk of free 
memory on the stack, expressed in paragraphs (16-byte 
chunks). By comparing MaxAvail to WindowSize, which 
returns the amount of memory required by a particular 
window, you can tell if there is sufficient room on the 
stack for the window. That is, 

If 16.0*MaxAvail > WindowSize(i) then ok 

Restrictions The value for Window must lie between 1 and the con- 

stant MaxWindowsGIb (defined in the TYPEDEF.SYS 
file). If an illegal window number is given for Window, or if 
the stack is out of space, an error occurs. 
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StoreWindow [WINDOWS.SYS] 



See Also RestoreWindow 

WindowSize 
WindowStackSize 

Example StoreWindow( 12 ) ; 

causes window 12 to be copied to the window stack 
for later retrieval. 
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SwapScreen [GRAPHIX.SYS] 

SwapScreen [GRAPHIX.SYS] 

Declaration procedure SwapScreen; 

Usage SwapScreen; 

Function SwapScreen exchanges the contents of the displayed 

screen with the contents of the RAM screen. 

Remarks The active screen is not changed by SwapScreen. This 

means that, if you are drawing on one screen and call 
SwapScreen while you are still drawing, the part of the 
drawing that is complete is moved to the inactive screen, 
but subsequent drawing takes place on the active 
screen. 

Restrictions This procedure can only be used if a RAM screen is allo- 

cated, i.e., RamScreenGIb is TRUE (defined in 
TYPEDEF.SYS file). 

See Also CopyScreen 

LoadScreen 
SaveScreen 
SelectScreen 

Example SwapScreen; 

swaps the contents of the displayed and RAM screens. 
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TextDown [GRAPHIX.SYS] 

Declaration function TextDownCIY, Boundary: integer): integer; 



Usage 
Parameters 



Function 



Remarks 



Restrictions 
See Also 



Example 



TextDown(TY, Boundary); 

TY : /coordinate of given machine-dependent 

text that is to be within a window 

Boundary : desired number of pixels between text and 
bottom edge of window 

TextDown uses the given Y text coordinate, TY, and the 
number of pixels, Boundary, that you want to have 
between the text and the bottom edge of the window, to 
calculate a Y window definition coordinate. The function 
then returns the Y coordinate of the bottom edge of a 
window that is at least Boundary pixels below the bottom 
edge of text coordinate TY. 

Along with TextLeft, TextRight, and Textilp, this func- 
tion is used to fit and align text within a window. It is par- 
ticularly useful with the Hercules version of the Turbo 
Graphix Toolbox, since Hercules text is defined on 9- 
pixel boundaries, while windows are defined on 8-pixel 
boundaries; this 1 -pixel offset can cause alignment prob- 
lems. If you want a uniform space between your text and 
all four window boundaries, use the DefineTextWindow 
procedure. See Appendix A for more information. 

None 

Appendix A 

DefineTextWindow 

TextLeft 

TextRight 

TextUp 

I:-TextDown(16,2); 

sets / to the Y screen coordinate at the bottom of row 
1 6, with a boundary of 2 pixels between the text and the 
window. 
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TextLeft [GRAPHIX.SYS] 

Declaration function TextLeft (TX, Boundary -.integer) -.integer; 



Usage 
Parameters 



Function 



Remarks 



Restrictions 



See Also 



Example 



Textl_eft(TX,Boundary); 

TX : X coordinate of given machine-dependent 

text that is to be inside a window 

Boundary : desired number of pixels between text 
and left edge of window 

TextLeft uses the given X text coordinate, TX, and the 
number of pixels, Boundary, that you want to have 
between the text and the left edge of the window, to cal- 
culate an X window definition coordinate. The function 
then returns the X coordinate of the left edge of a win- 
dow that is at least Boundary pixels to the left of the left 
edge of text coordinate TX. 

Along with TextDown, TextRight, and TextUp, this func- 
tion is used to fit and align text within a window. It is par- 
ticularly useful with the Hercules version of the Turbo 
Graphix Toolbox, since Hercules text is defined on 9- 
pixel boundaries, while windows are defined on 8-pixel 
boundaries; this 1 -pixel offset can create alignment prob- 
lems. If you want a uniform space between your text and 
all four window boundaries, use the DefineTextWindow 
procedure. See Appendix A for more information. 

None 

Appendix A 

DefineTextWindow 

TextDown 

TextRight 

TextUp 

I:=TextLeft(LeftMargin,0) ; 

sets / to the X screen coordinate that corresponds to 
the left edge of column LeftMargin. 
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TextRight [GRAPHIX.SYS] 

Declaration function TextRight (TX, Boundary .-integer) .-integer; 



Usage 
Parameters 



Function 



Remarks 



Restrictions 



See Also 



Example 



TextRight(TX.Boundary); 

TX : X coordinate of given machine-dependent 

text that is to be inside a window 

Boundary : desired number of pixels between text 
and right edge of window 

TextRight uses the given X text coordinate, TX, and the 
number of pixels, Boundary, that you want to have 
between the text and the right edge of the window, to 
calculate an X window definition coordinate. The function 
then returns the X coordinate of the right edge of a win- 
dow that is at least Boundary pixels to the right of the 
right edge of text coordinate TX. 

Along with TextDown, TextLeft and TextUp, this function 
is used to fit and align text within a window. It is particu- 
larly useful with the Hercules version of the Turbo Gra- 
phix Toolbox, since Hercules text is defined on 9-pixel 
boundaries, while windows are defined on 8-pixel boun- 
daries; this 1 -pixel offset can create alignment problems. 
If you want a uniform space between your text and all 
four window boundaries, use the DefineTextWindow pro- 
cedure. See Appendix A for more information. 

None 

Appendix A 

DefineTextWindow 

TextDown 

TextLeft 

TextUp 

TextRight(68,l); 

sets J to the X screen coordinate that is at least 1 pixel 
to the right of column 68. 
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TextUp [GRAPHIX.SYS] 

Declaration function TextUp(TY, Boundary: integer): integer; 

Usage TextUp(TY, Boundary); 

Parameters TY : Y coordinate of given machine-dependent 

text that is to be within a window 
Boundary : desired number of pixels between text 
and top edge of window 

Function TextUp uses the given Y text coordinate, TY, and the 

number of pixels, Boundary, that you want to have 
between the text and the top edge of the window, to cal- 
culate a Y window definition coordinate. The function 
then returns the Y coordinate of the upper edge of a win- 
dow that is at least Boundary pixels above the top edge . 
of text coordinate TY. 

Remarks Along with TextLeft, TextRight, and TextDown, this 

function is used to fit and align text within a window. It is 
particularly useful with the Hercules version of the Turbo 
Graphix Toolbox, since Hercules text is defined on 9- 
pixel boundaries, while windows are defined on 8-pixel 
boundaries; this 1 -pixel offset can create alignment prob- 
lems. If you want a uniform space between your text and 
all four window boundaries, use the DefineTextWindow 
procedure. See Appendix A for more information. 

Restrictions None 

See Also Appendix A 

DefineTextWindow 
TextDown 
TextLeft 
TextRight 

Example U:=Te«tlte(TopLine,HeaderSize); 

sets U to the Y screen coordinate that is HeaderSize 
pixels above row TopLine. 
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TranslatePolygon [MODPOLY.HGH] 

. Declaration procedure TranslatePolygon(Var A:PlotArray; N: integer; 

Del taX, DeltaY: real); 

Usage TranslatePolygon(A,N,DeltaX, DeltaY); 

Parameters A : polygon array 

N : number of polygon vertices 
DeltaX : displacement in X direction 
DeltaY : displacement in Y direction 

Function TranslatePolygon moves all polygon line endpoints by 

adding X and Y displacements, thus moving the entire 
polygon both vertically by DeltaX and horizontally by 
DeltaY. 

Remarks When drawing a translated polygon using DrawPolygon, 

the number of vertices should be passed as a negative 
value, so that DrawPolygon clips the polygon at window 
boundaries. 

Restrictions None 

See Also DrawPolygon 

RotatePolygon 
ScalePolygon 

Example TranslatePolygon! Image,73, 25, -19. 8) 

changes the values of the 73 coordinate pairs in Image 
so that the polygon is moved 25 X units to the right, and 
19.8 V units towards the top of the screen. 
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WindowMode [KERNEL.SYS] 

Declaration function WindowMode :boolean; 

WindowMode; 



Usage 
Function 

Restrictions 
See Also 

Example 



WindowMode returns the window status: TRUE if Win- 
dowModeOn has been called, FALSE if WindowModeOff 
has been called. 

None 

SetWindowModeOff 
SetWindowModeOn 

B:=WindowMode; 
B is TRUE if window mode is currently enabled. 
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WindowSize [WINDOWS.SYS] 

Declaration Amotion WindowSize ( Nr : integer ) : integer ; 

Usage WindowSize(Nr); 

Parameters Nr : index of window [1 ..MaxWindowsGIb] 

Function WindowSize calculates the size of a window in bytes. In 

a window stack operation, this size is compared to the 
available window stack space to see if there is sufficient 
room for the window in the stack; if not, an error occurs. 

The formula used for this calculation is: 

WindowSize: = {Y2 - Y1 + 1) {X2-X1) 

The value returned is rounded up to the nearest 1 ,024 to 
match with the amount of space the window will con- 
sume if it is saved on the window stack. [X1, Y1] are the 
coordinates of the left upper corner of the window, and 
[X2.Y2] are the coordinates of the right lower corner of 
the window. 

Restrictions The value of Nr must lie between 1 and the constant 

MaxWindowsGIb (defined in the TYPEDEF.SYS file). 

See Also ClearWindowStack 

RestoreWindow 
StoreWindow 
WindowStackSize 

Example I : =WindowSize (3 ) ; 

/ contains the number of bytes needed to store window 
3 in the window stack. 
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WindowX [KERNEL.SYS] 



Declaration 
Usage 
Parameters 
Function 

Restrictions 
See Also 

Example 



Amotion WindowX(X: real): integer; 

WindowX(X); 

X : X world coordinate 

WindowX translates an X world coordinate into an abso- 
lute screen coordinate and returns this value. 

None 

DefineWorld 
DefineWindow 
SelectWindow 
SelectWorld 

X:=WindowX(Xl); 

converts the world coordinate X1 to a screen coordi- 
nate and stores the value in X. 
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WindowY [KERNEL.SYS] 



Declaration 
Usage 
Parameters 
Function 

Restrictions 
Example 



function WindowY(Y:real) : integer; 

WindowY(Y); 

/: /world coordinate 

WindowY translates a Y coordinate from world coordi- 
nate to absolute screen coordinates, and returns this 
value. 

None 

Y:«WindowY(Yl); 

converts world coordinate Y1 to a screen coordinate 
and stores the value in Y. 



TECHNICAL REFERENCE 



235 



Notes: 
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Appendix A. 

HARDWARE CONFIGURATIONS 

AND COMPATIBILITY PROBLEMS 



This section describes three of the hardware configurations that support 
the Turbo Graphix Toolbox. Problems or considerations specific to the 
IBM, Hercules, and Zenith implementations are first discussed separate- 
ly; a detailed discussion about compatibility between different hardware 
configurations follows. 

Complete information about the constants, types, procedures and func- 
tions mentioned in this Appendix can be found in Chapter 3. 



The IBM Color Graphics Card 

The IBM Color Graphics card supports a hardware environment with the 
following general characteristics: 

• Screen is 640 pixels wide by 200 pixels tall. 

• Default step (increment) for vertical window movement (as defined in 
the constant IVStep) is 2 pixels. 

• A RAM screen is enabled (constant RamScreenGIb = TRUE) and is 
placed in normal RAM. 

Constants take the following default values with the IBM card: 



AspectFactor 


= 0.44 


MinForeground 


= 1 


HardwareGrafBase 


= $B800 


RamScreenGIb 


= TRUE 


IVStep 


= 2 


ScreenSizeGIb 


= 8191 


MaxBackground 


* 


XMaxGIb 


= 79 


MaxForeground 


= 15 


XScreenMaxGIb 


= 639^ 


MinBackground 


= 


YMaxGIb 


= 199 



depends on version 
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The IBM Color Graphics Card 



Color 



The different IBM versions of the Turbo Graphix Toolbox allow either 
one background color, true black (constants MinBackground and 
MaxBackground are both 0), or up to fifteen background colors 
(MinBackground =0, MaxBackground '= 15); fifteen foreground colors 
are available (MinForeground=~\, MaxForeground="\S), except with 
the PCjr, which allows only black or white for the foreground color. 
MaxForeground is the default value, set both by the InitGraphic and 
EnterGraphic procedures. The following table lists the colors for the IBM 
Color/Graphics Adapter (CGA), the PCjr, the Enhanced Graphics 
Adapter (EGA), and the 3270 PC. 



Foreground Colors 



CGA 



PCjr 



EGA 



3270 PC 






Black 


Black 


Black 


Black 


1 


Blue 


White 


Blue 


Blue 


2 


Green 


Black 


Green 


Green 


3 


Cyan 


White 


Cyan 


Turquoise 


4 


Red 


Black 


Red 


Red 


5 


Magenta 


White 


Magenta 


Pink 


6 


Brown 


Black 


Brown 


Yellow 


7 


Light gray 


White 


Light gray 


White 


8 


Dark gray 


Black 


Dark gray 


Black 


9 


Light blue 


White 


Light blue 


Blue 


10 


Light green 


Black 


Light green 


Green 


11 


Light cyan 


White 


Light cyan 


Turquoise 


12 


Light red 


Black 


Light red 


Red 


13 


Light magenta 


White 


Light magenta 


Pink 


14 


Yellow 


Black 


Yellow 


Yellow 


15 


White 


White 


White 


White 






Background Colors 






CGA 


PCjr 


EGA 


3270 PC 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 



Black 
Blue 
Green 
Cyan 
Red 

Magenta 
Brown 
Light gray 
Dark gray 
Light blue 
Light green 
Light cyan 
Light red 
Light magenta 
Yellow 
White 



Black 
Blue 
Green 
Cyan 
Red 

Magenta 
Brown 
Light gray 
Dark gray 
Light blue 
Light green 
Light cyan 
Light red 
Light magenta 
Yellow 
White 



Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
Black 
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The Hercules Monochrome Graphics Card 



Text 



In addition to the standard 4x6-pixel font used by Turbo Graphix, the 
IBM card allows higher quality text characters to be drawn in the normal 
IBM Color/graphics adapter font. These characters take the form of 
8x8-pixel cells, and can only be drawn at X and Y coordinates that are 
multiples of 8 pixels. Since windows are also defined on 8-pixel horizon- 
tal boundaries, the higher quality text can be aligned exactly with win- 
dows. 

Text can be moved vertically to any screen position using the window 
movement procedure MoveVer. Unlike the 4x6-pixel font, IBM text is 
never clipped at window boundaries. 



The Hercules Monochrome Graphics Card 

The Hercules Monochrome Graphics card supports a hardware environ- 
ment with the following general characteristics: 

• Screen is 720 pixels wide by 350 pixels tall. 

• Default step (increment) for vertical window movement is 5 pixels (as 
specified by the constant IVStep). 

• A RAM screen is allocated (constant RamScreenGIb = TRUE). The 
RAM screen can be placed in normal RAM (default) or on the Her- 
cules card itself, as determined by the initialized variable 
RamScreenlnCard in the GRAPHIX.HGC file. If RamScreenlnCard is 
TRUE, the RAM screen is on the Hercules card; if FALSE, it is in nor- 
mal RAM. If you change RamScreenlnCard to TRUE, your Hercules 
card must be placed in the "full" configuration. 

Constants take the following values with the Hercules card: 



AspectFactor 


= 0.75 


RamScreenGIb 


= TRUE 


HardwareGrafBase 


= $B000 


* RamScreenlnCard 


= FALSE 


IVStep 


= 5 


ScreenSizeGIb 


= 16383 


MaxBackground 


= 


XMaxGIb 


= 89 


MaxForeground 


= 1 


XScreenMaxGIb 


= 719 


MinBackground 


= 


YMaxGIb 


= 349 


MinForeground 


= 1 







Specific to the Hercules implementation 
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The Hercules Monochrome Graphics Card 



Color 



The Hercules card does not support color. Neither background nor fore- 
ground color can be changed; both MinBackground and MaxBack- 
ground are set to (black) and both MinForeground and MaxFore- 
ground are set to 1 (white). 



Text 



In addition to the standard 4x6-pixel font used by Turbo Graphix to 
draw window headers and footers, the Hercules card allows higher qual- 
ity text characters to be drawn on the screen in the normal Hercules 
font. These characters take the form of 9x14 pixel cells, can only be 
drawn at text coordinates that start at [0,0], and move in steps (incre- 
ments) of 9 horizontal pixels by 14 vertical pixels. Using the window 
movement procedures MoveHor and MoveVer, you can move text to 
any desired screen location. However, because Hercules horizontal text 
coordinates are at multiples of 9 pixels, and window definition coordi- 
nates are at multiples of 8, care must be taken when attempting to draw 
text inside a window; the alignment of text with the window may be 
slightly skewed due to the repeating 1 -pixel offset of text. 

Unlike the 4x6-pixel Turbo Graphix font, Hercules text is never clipped 
at window boundaries. 



Special Notes 

Though the Hercules card normally has a resolution of 720x348, 
through special programming, the Hercules version of the Turbo Graphix 
Toolbox changes the resolution to 720x352; the last two vertical pixels 
are ignored by the program, thus giving a resolution of 720x350. There 
are a few monitors that may not be able to display this higher resolution. 
If your monitor loses its horizontal hold when you use Turbo Graphix, 
you must change two constants in GRAPHIX.SYS: YMaxGIb should be 
changed from 349 to 347, and VRowsGIb should be changed from $58 
to $57. Be sure to change both constants. 
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The Hercules Monochrome Graphics Card 



With the Hercules card, if a program terminates while in graphics mode, 
part of the current graphic display will remain on the screen, and part 
will be erased. This is because MS-DOS does not understand that the 
computer is in graphics mode, and will try to use the Hercules card as if 
it were in text mode. To prevent this, you must use the DOS command 
MODE MONO or run the program HFIX.COM (on the Turbo Graphix 
Toolbox distribution disk). 

Suppose your program terminates due to an I/O or runtime error. In this 
case, you will probably want to see the error message, so you should 
use HFIX.COM, which displays the error message, rather than MODE 
MONO, which clears the screen. However, part of the error message 
may scroll off the screen. One way to capture the error message before 
it disappears is to use the Shift-Printscreen sequence. DOS will then 
display the text screen even though there is also a graphics display. 

The Zenith Color Graphics Card 

The Zenith Color Graphics card supports a hardware environment with 
the following general characteristics: 

• Screen is 640 pixels wide by 225 pixels tall. 

• Default step (increment) for vertical window movement (as defined in 
the constant IVStep) is 3 pixels. 

• A RAM screen is enabled (constant RamScreenGIb = TRUE) and is 
placed in normal RAM. 

Constants take the following default values with the Zenith card: 

AspectFactor = .495 MinForeground = 1 

Hard wareGraf Base = $C000 RamScreenGIb = TRUE 

IVStep = 3 ScreenSizeGIb = 24575 

MaxBackground = XMaxGIb = 79 

MaxForeground = 7 XScreenMaxGIb = 639 

MinBackground = YMaxGIb = 224 
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The Zenith Color Graphics Card 



Color 



The Zenith version of the Turbo Graphix Toolbox allows only one back- 
ground color, true black (constants MinBackground and MaxBack- 
ground must both be 0); seven foreground colors are available (MinFore- 
ground=1, MaxForeground = 7). MaxForeground is the default value, 
set both by the InitGraphic and EnterGraphic procedures. Available 
colors are: 

1 Blue 

2 Green 

3 Cyan 

4 Red 

5 Magenta 

6 Yellow 

7 White 



Text 



In addition to the standard 4x6-pixel font used by Turbo Graphix, the 
Zenith card allows higher quality text characters to be drawn in the nor- 
mal Zenith font. These characters take the form of 8x9-pixel cells, and 
can only be drawn at X and Y coordinates that are multiples of 8 hor- 
izontal by 9 vertical pixels. Since windows are also defined on horizontal 
8-pixel boundaries, the higher quality text can be aligned exactly with 
windows. 

Text can be moved vertically to any screen position using the window 
movement procedure MoveVer. Unlike the 4x6-pixel font, Zenith text is 
never clipped at window boundaries. 



Compatibility Issues 

This section discusses the problems involved with writing a program for 
more than one version of the Turbo Graphix Toolbox, and offers 
suggestions for resolving those problems. 
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Compatibility Issues 



Screen Size 



Probably the biggest problem involved with writing programs for 
different Turbo Graphix versions is that the graphics cards support 
different screen sizes. This is especially troublesome for drawings that 
use absolute screen coordinates. You could define a window and display 
the drawing using world coordinates, which partially resolves the prob- 
lem; however, the placement of the window itself depends on the reso- 
lution of the screen. For instance, on the IBM Color/graphics adapter, a 
window with its upper left corner at [20,50] and lower right corner at 
[60,150] is a centered window that is approximately 1/4 the size of the 
screen. On the Hercules card, the same window would be placed slightly 
further to the left on the screen, and significantly closer to the top, and 
would take up only about 1/8 of the screen. 

One solution to this problem would be to use the global constants 
XMaxGIb and YMaxGIb to standardize the placement of the window. 
The statement 

DefineWindow(l,XMaxGlb Div 4,'XMaxGlb Div 4,XMaxGlb*3 Div 4, 
mjxGlb*3 Div 4); 

would define a centered window that takes up approximately 1/4 of the 
screen, regardless of the actual screen size. 



Text Placement 

Another potential compatibility problem is text placement. Although the 
4x6-pixel text can be placed at any screen coordinates with the 
DrawText procedure, or at any world coordinates with the DrawTextW 
procedure, recreating the same text on different screens is difficult. This 
is because the size of the characters may also have to be adjusted. The 
machine-dependent font is correctly proportioned for the graphics card 
in use, though it can be difficult to place. For example, suppose, on the 
IBM Color adapter version, that a window is to be defined that will en- 
close text coordinates [10,2] through [20,4]. The following statement 
shows one way to define that window: 

DefineWindow(l,(XMaxGlb*10) Div 80, (YMaxGlb*2) Div 25, 
(XMaxGlb*20) Div 80, (YMaxGlb*4) Div 25); 
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This statement is equivalent to 

DefineWindow( 1,(79*10) Div 80,(199*2) Div 25,(79*20) Div 80, 
(199*4) Div 25); 

or 

DefineWindow( 1,(790) Div 80,(398) Div 25, (1530) Div 80, 
(796) Div 25); 

or 

DefineWindow( 1,9, 15, 19,31) ; 

The screen coordinates above are (72,15,159,31) (the X screen coordi- 
nate is greater by 7 because it includes the entire byte at that coordi- 
nate). 

On the IBM version, text is drawn at every 8 pixels in both directions, so 
the screen coordinates to use for a window that includes text coordi- 
nates [10,2] through [20,4] are (80,16,167,39). If (XMaxGlb + 1) and 
(YMaxGIb + 1) were used in the first statement, 

DefineWindow(l,((XMaxGltH-l)*10) Div 80,((YMaxGlbfl)*2) Div 25, 
((XMaxGlbi-l)*20) Div 80,((YMaxGltHl)*4) Div 25); 

the resulting window would be at screen coordinates (80,16,167,32), 
which would align the text more exactly with the window. Adding 7 to 
the final Y coordinate makes it exact: 

DefineWindow(l,((XMaxGlb+l)*10) Div 80,((TMaxGlbfl)*2) Div 25, 
((XMaxGlbfl)*20) Div 80, ((^MaxGa.bfl)*4) Div 25 + 7); 

However, if the last statement is used on the Hercules card, the final 
coordinates come out as (88,28,183,63), which is close to the correct 
(90,28,188,64) — but not close enough. Text drawn in that window 
would spill over the right and bottom edges of the window. But the 
correct window (90,28,188,64) is an illegal window! The first X coordi- 
nate, 90, is not a multiple of 8, and the second, 188, is not 1 less than a 
multiple of 8. 
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Because of the complexity involved in choosing a window to fit text, 
four functions are provided that choose window definition coordinates 
based on text coordinates. Each function is given a text coordinate and 
a minimum boundary value. The function returns a window definition 
coordinate that will contain the given text coordinate and provide a bor- 
der of at least the boundary pixel value. The border cannot always be 
exact because of the difference between text coordinates and byte-at- 
a-time window coordinates on some machines. 

The four functions are: 

TextLeft(TX, Boundary: integer) : integer; 

Returns X window coordinate that is at least Boundary pixels to the 
left of the left edge of text coordinate TX. 

TextRight(TX,Boundary: integer) : integer; 

ReturnSxX window coordinate that is at least Boundary pixels to the 
right of the right edge of text coordinate TX. 

TextUp( TY, Boundary : integer ) : integer; 

Returns Y window coordinate that is at least Boundary pixels above 
the top edge of text coordinate TY. 

TextDown( TY , Boundary : integer ) : integer ; 

Returns Y window coordinate that is at least Boundary pixels below 
the bottom edge of text coordinate TX. 

There are two functions for each direction because the font size is not 
known to the user program, so the addition of the actual width of the 
character to its upper lefthand corner coordinate must be done by the 
system. 

Returning to the original example, to define that window enclosing text 
coordinates [10,2] through [20,4] and give a border of at least 1 pixel on 
all sides, we use 

DefineWindow( l,TextLeft( 10, 1) ,TextUfc>(2, 1) ,TextRight(20, 1) ,TextDown(4, 1) ) ; 
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In addition to the four functions, the procedure 

DefineTextWindow( I, Left, Up, Rigfrt, Down, Border: integer) ; 

can also be used to adjust a window to text coordinates. This procedure 
is a more convenient way to solve the alignment problem, since all 
parameters are defined in one routine; however, it is less flexible, since 
the size of the border between text and window boundaries must be the 
same for all four directions. 



Color 



The color capabilities of the various Turbo Graphix Toolbox versions 
range from absolute monochrome (black and white only) to a choice of 
1 6 colors each for the foreground and background. It is very difficult to 
use the color capabilities in a machine-independent way. The range of 
colors available is known to the user program, but the actual colors as- 
sociated with the numbers are not. If two different colors are arbitrarily 
chosen for foreground and background, there is no way to ensure 
against, for instance, the choice of blue for foreground and aquamarine 
for background! 

In addition, the consequences of changing the current color vary from 
machine to machine. On some machines, there may be a considerable 
delay while pixel colors are being changed. On others, the color may be 
changed by simply reprogramming the display controller to interpret the 
same bit patterns as different colors. 

Also, on some machines, changing both foreground and background to 
the same color may destroy the graphic image currently being displayed. 

Because of these considerations, it is recommended that programs that 
are to be used with several versions of the Turbo Graphix Toolbox be 
written for true black and white. 



Speed 



The speed of the Turbo Graphix Toolbox varies widely on different 
machines. The variance is not simple; from one machine to the next, one 
operation may be twice as fast, and another be about the same speed. 
You should therefore make no assumptions about speed or timing when 
you are writing a program that is to run on several machines. 
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Compatibility Issues 



Premature Termination 



On some machines, if a program ends while still in graphics mode, the 
computer may behave erratically. For instance, if a program written for 
the Hercules graphics card version ends without a call to LeaveGraphic, 
DOS does not know that the screen is in graphics mode, and acts as if 
it is in text mode. 

Included on the Turbo Graphix Toolbox distribution disk is a program, 
HFIX.COM, to be used to reorient your system after a program ter- 
minates improperly. You are free to distribute HFIX.COM with any pro- 
gram you write. 
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Notes: 
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Appendix B. 
GLOSSARY 



absolute screen coordinate system: Coordinate system that uses the 
entire screen area to plot the pixel location of text or graphics; coordi- 
nate [0,0] is in the upper left corner of the screen. 

absolute value: The value of a positive or negative number when the 
sign has been removed. For example, the absolute value of both — 2 
and + 2 is 2. 

active window: The displayed or RAM (virtual) window in which draw- 
ing is currently taking place. 

active screen: The displayed or virtual screen in which drawing is 
currently taking place. 

aspect ratio: The horizontal-to-vertical ratio of a circle or ellipse. Used 
by the Turbo Graphix Toolbox to proportion circles and pie charts. 

background: The screen surface and color on which drawing is taking 
place. See foreground. 

bar chart: A graph consisting of vertical or horizontal bars with lengths 
proportioned according to specified quantities. 

base point: Any of the points that constitute a graph or curve. 

Bezier function: Function that uses an array of control points to con- 
struct a parametric, polynomial curve of a predetermined shape. 

Cartesian coordinate system: A method used to plot an object's loca- 
tion according to its horizontal-by-vertical position. This position is refer- 
enced to horizontal (A) and vertical (V) axes. 

clipping: Turbo Graphix Toolbox function that keeps graphic images 
within window or screen boundaries by preventing any part of the draw- 
ing that falls outside the window or screen from being displayed. 

control point: Any of the points used to plot a graph. Used by the Tur- 
bo Graphix Toolbox to construct curves. 
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GLOSSARY 



coordinate system: A method used to plot an object's location accord- 
ing to its horizontal-by-vertical position. See absolute screen coordinate 
system and world coordinate system. 

displayed screen: The visible screen displayed on your computer moni- 
tor. See RAM screen. 

flow chart: A graphic representation of a sequence of consecutive 
events or operations. The Turbo Graphix Toolbox uses a sequence of 
moving windows to represent a flow chart. 

font: Either of two sets of characters used by the Turbo Graphix Tool- 
box. Window headers, and text that must be in multiples of 4x6 pixels, 
are displayed in the standard 4x6-pixel text font. All other text is 
displayed in a machine-dependent, higher resolution text font — 8x8- 
pixels for the IBM card, 9x14 pixels for the Hercules card, and 8x9 pix- 
els for the Zenith card. 

foreground: The color used to display text and draw graphic images. 
See background. 

graphics mode: Mode of computer operation in which graphics sym- 
bols and drawings are displayed. See text mode. 

header: A user-defined text label, displayed in the Turbo Graphix stan- 
dard 4x6-pixel font, that is placed either at the top or bottom edge of a 
window. 

histogram: A graphic representation of a frequency distribution that 
takes the form of a bar chart. 

inactive screen: The RAM or displayed screen that is not currently be- 
ing used for drawing. 

include directive: Program comment of the form {$1 filename.ext} that 
instructs the compiler to read the program contained in filename. 

interpolation: Method of determining the value of a function that is 
between known values, using a procedure or algorithm. See spline func- 
tion. 
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machine-dependent text: Text that corresponds to the font used by 
the particular graphics card installed in your system. Text is 8x8-pixels 
for the IBM card, 8x9 pixels for the Zenith card, and 9x1 4-pixels for the 
Hercules card. Machine-dependent text is of a higher resolution than the 
standard, 4x6-pixel text used by the Turbo Graphix Toolbox to display 
window headers. See font. 

modeling: Method used to find the points (and the corresponding func- 
tion) that will represent a predetermined line, curve, or solid shape. See 
Bezier function. 

origin: In any coordinate system, point [0,0], i.e. the point where the 
coordinate axes intersect. 

pie chart: A circular chart used to represent the relative sizes of several 
quantities that make up a whole unit. The pie chart is divided into sec- 
tions by radial lines, with each section proportional in angle and area to 
the quantity it represents. 

pixels: Acronym for picture elements. The tiny dots that together make 
up a graphics or text screen display. Pixels are the basic units of meas- 
ure used by coordinate systems to plot the location of screen objects. 

polar coordinate system: Method used to plot a pie chart in reference 
to its radius and the angle of its first segment. 

polygon: A figure that encloses a collection of points, possibly (but not 
necessarily) connected by line segments. 

RAM (virtual) screen: A screen that is stored in RAM memory. It is 
identical in size and shape to the displayed screen, but any drawing that 
takes place on it is invisible. 

resolution: The quality and accuracy of detail of a displayed image. 
Resolution depends on the number of pixels within a given area of the 
screen; the more pixels there are, the higher the resolution. 

scaling: Ability of the Turbo Graphix Toolbox to reduce or enlarge an 
image to fit in a given window according to the world coordinate system 
specified by the user. 
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screen coordinate system: See absolute screen coordinate system. 

spline function: Polynomial function that smooths a curve by calculat- 
ing and generating additional base points. 

step: The increment by which a text character, window, or graphic im- 
age moves at one time. 

text mode: Computer mode in which only characters are manipulated 
and displayed. See graphics mode. 

vertex: The point where the sides of an angle intersect. 

virtual screen: See RAM screen. 

window: An area of the screen specified by the user for drawing. It can 
range in size between 1 vertical pixel by 8 horizontal pixels and the en- 
tire screen. 

window definition coordinates: The two sets of X and Y coordinates 
that define the upper left and lower right corners of a window. Windows 
are defined on 8-bit horizontal by 1-bit vertical boundaries, so that each 
X window definition coordinate represents one 8-pixel horizontal unit, 
and each /coordinate represents one 1 -pixel vertical unit. 

window stack: RAM area in which windows can be temporarily stored. 

world coordinate system: A user-defined coordinate system that is 
used to scale drawings within a given window. World X (horizontal) and 
Y (vertical) coordinates do not necessarily correspond to actual pixel lo- 
cations, but can be assigned any values that suit the application. A 
world is enclosed by the X (horizontal) and Y (vertical) coordinates of the 
upper left and lower right corners of the drawing area. 

zero axes: The horizontal {X) and vertical {Y) axes used to plot the lo- 
cation of a screen object. 
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A 

Animation, 42 

AspectFactor, 28, 50, 95, 200 
Aspect ratio (see Circle drawing) 

B 

BackgroundArray, 96 
Bar chart, 48, 53ff, 139 
BaseAddress, 108 
Bezier, 73, 76ff, 109 

c 

CharFile, 96 

Circle drawing, 27ff, 132 
aspect ratio, 27, 50, 95, 

132,160,165,200 
screen coordinates, 133 
ClearScreen, 112 
ClearWindowStack, 113 
Clipping, 12,67,114, 
115,142,206,207 
Color, 236 

background, 97, 99, 203, 

237, 239, 241 
drawing, 97,99, 161, 
208,209,210,237, 
239, 242 
reverse video, 175, 176 
Compatibility between 

different systems, 242ff 
ConOutPtr, 96, 124, 157, 177 
Constants, 94ff, 237, 239, 241 

altering, 95 
Coordinate axes, 62, 127 
Coordinate system 

absolute screen, 9, 10, 221, 

235 
cartesian, 49 
polar, 49 
world, 9, 10, 35 



CopyScreen, 39, 116 
CopyWindow, 39, 117 
Curves 

bezier, 76, 109 

fitting, 73ff 

plotting, 59ff, 73ff 

spline interpolation, 73, 222 

D 

DC, 118 

DefineHeader, 119, 129 
DefineTextWindow, 120 
DefineWindow, 122 
DefineWorld, 123 
DisplayChar, 124 
DP, 125 
DrawAscii, 126 
DrawAxis, 62ff, 127 
DrawBorder, 18, 129 
DrawCartPie, 48, 130 
DrawCircle, 27, 132 
DrawCircleDirect, 133 
DrawCircleSegment, 134 
DrawCross, 136 
DrawCrossDiag, 137 
DrawDiamond, 138 
DrawHistogram, 48, 53ff, 139 
DrawLine, 23ff, 141 
DrawLineClipped, 142 
DrawPoint, 18ff, 143 
DrawPolarPie, 48ff, 1 44 
DrawPolygon, 26ff, 146 
DrawSquare, 149 
DrawSquareC, 150 
DrawStar, 151 
DrawStraight, 152 
DrawText, 32, 153 
DrawTextW, 155 
DrawWye, 156 
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EnterGraphic, 157 

Error, 158 

Error processing, 1 58, 1 62, 

171,204,205,216, 

217,241 



FindWorld, 69ff, 159 
Flow chart, 43 

G 

GetAspect, 160 
GetColor, 161 
GetErrorCode, 162 
GetLineStyle, 163 
GetScreen, 164 
GetScreenAspect, 165 
GetVStep, 166 
GetWindow, 167 
GotoXY, 168 
GotoXYTurbo, 169 

H 

HardCopy, 85,170 
Hardware configurations, 

13ff, 71,237ff 
HardwareGrafBase, 96 
HardwarePresent, 171 
Hatch, 172 
HeaderSizeGIb, 96 
Hercules monochrome 
graphics card, 1, 8, 15, 21, 63 

91 , 97, 99, 203, 239 
High-level command files, 2, 92 

I 

IBM color graphics card, 1 , 

8, 13,14,15,21,63, 

91 , 97, 99, 237 
IBM Enhanced Graphics Adapter, 15 
InitGraphic, 18,34, 173 
Initialization, 18, 157, 173 
InvertScreen, 175 
InvertWindow, 176 
IVStepGIb, 97 



LeaveGraphic, 18, 177 
Line drawing, 23ff, 141 

clipped, 142 

horizontal, 152 

line style, 163,215 
LoadScreen, 80ff, 178 
LoadWindow, 179 
LoadWindowStack, 81, 180 

M 

MaxBackground, 97 
MaxForeground, 97 
MaxPiesGIb, 98 
MaxPlotGIb, 59, 98 
MaxWindowsGIb, 98, 122 
MaxWorldsGIb, 98, 123 
MinBackground, 99 
MinForeground, 99 
Modeling, 76, 109 
MoveHor, 38, 181 
MoveVer, 38, 182 

P 

PD, 183 

Pie chart, 48ff, 98, 99, 

130, 134, 144 
PieArray, 50, 99 
Pixels defined, 7 

PlotArray, 53, 59, 74, 100, 139, 146 
Point drawing, 18ff, 143, 208 

absolute screen coordinate, 
125,183 

world coordinates, 21, 184 
PointDrawn, 184 
Polygon 

clipping, 67 

defining world for, 70ff , 1 59 

drawing, 59, 100, 146 

MaxPlotGIb, 98 

moving, 66ff, 191,192, 231 

PlotArray, 100 

rotating, 66ff 

scaling, 196 
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Premature termination, 247 

Printing, 170 

Procedures and functions, 107ff 



RamScreenGIb, 100 
Rectangle drawing, 26, 149 

clipped, 150 

hatched, 172 
RedefineWindow, 35, 185 
RemoveHeader, 186 
ResetWindows, 188 
ResetWindowStack, 187 
ResetWorlds, 189 
Resolution, 8 
RestoreWindow, 190 
RotatePolygon, 66ff, 191 
RotatePolygonAbout, 66, 192 



SaveScreen, 80ff, 193 
SaveWindow, 194 
SaveWindowStack, 81, 195 
ScalePolygon, 196 
Screen 

active, 8, 164 

clearing, 112 

copying, 116 

displayed, 2, 8 

loading, 80ff, 178 

printing, 85, 170 

RAM, 2, 8, 100, 237, 239, 
241 

saving, 80ff, 193 

selecting for drawing, 197 

size, 7, 101,102,237, 
239,241,243 

swapping, 226 
ScreenSizeGIb, 101 
SelectScreen, 197 
SelectWindow, 198 
SelectWorld, 199 
SetAspect, 28, 50, 200 
SetBackground, 201 
SetBackground8, 202 



SetBackgroundColor, 203 
SetBreakOff, 204 
SetBreakOn, 205 
SetClippingOff, 206 
SetClippingOn, 207 
SetColorBlack, 208 
SetColorWhite, 209 
SetForegroundColor, 26, 210 
SetHeaderOff , 21 1 
SetHeaderOn, 212 
SetHeaderToBottom, 129, 213 
SetHeaderToTop, 129, 214 
SetLineStyle, 23,26,215 
SetMessageOff, 216 
SetMessageOn, 217 
SetScreenAspect, 218 
SetVStep, 219 
SetWindowModeOff, 220 
SetWindowModeOn, 221 
Spline, 73ff, 222 
Square drawing 

(see Rectangle drawing) 
StoreWindow, 39, 224 
Strings, 101 
StringSizeGIb, 101 
SwapScreen, 226 
System files, 1 

T 

Text, 29ff 

4x6 pixel, 9, 10, 29, 
32,96,119, 126,153, 
155,211-214,243 
Hercules, 30, 120, 240 
IBM, 238 

machine-dependent, 8, 9, 
10,30,101, 118,120, 
124,126,153,155,168, 
169,227,228,229, 
230, 240, 242, 243 
Zenith, 242 
TextDown, 227 
TextLeft, 228 
TextRight, 229 



SUBJECT INDEX 



255 



SUBJECT INDEX 




TextUp, 230 


selecting, 199 


TranslatePolygon, 66ff, 231 


for polygons, 69ff 


Turbo Graphix files 


initialization, 189 


including, 17, 91 


WrkString, 101 


Tutorial, 17ff 




Types, 94ff 


X 




XMaxGIb, 102 


w 


XScreenMaxGIb, 102 


Window 




active, 167 


Y 


background pattern, 96, 


YMaxGIb, 102 


201 , 202 




border, 129 


Z 


copying, 117 


Zenith Z-100 computer, 1,8, 


defining, 11,34,98, 122 


15,97,99,203,241 


fitting text in, 30, 120, 




227, 228, 229, 230, 




238, 240, 242, 243 




flow chart, 43 




header, 96, 119, 129, 




186,211,212,213, 




214 




initialization, 188 




loading, 179 




mode, 220, 221 , 232 




moving, 39, 97, 166, 




181,182,219,237, 




239, 241 




placement on different 




screens, 243 




saving, 194 




selecting for drawing, 198 




size, 11,102,233 




stack, 11,40,113, 




180,187,195,224, 
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storing, 190, 224 




WindowMode, 232 




WindowSize, 233 




WindowX, 234 




WindowY, 235 




World, 221,234,235 




defining, 98, 123 
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Borland 
Software 




BORLAND 

international 4585 Scotts Valley Drive, Scotts Valley, CA 95066 



Available at better dealers nationwide. 

To order by credit card, call (800) 255-8008; GA (800) 742-1133. 



TusboPascal 

VERSION 3.0 with 8087 support and BCD reals 

Free MicroCalc Spreadsheet With Commented Source Code! 



FEATURES: 

One-Step Compile: No hunting & fishing 
expeditions! Turbo finds the errors, takes you 
to them, lets you correct them, and instantly 
recompiles. You're off and running in 
record time. 

Built-in Interactive Editor: WordStar*-like 
easy editing lets you debug quickly. 

Automatic Overlays: Fits big programs into 
small amounts of memory. 

MicroCalc: A sample spreadsheet on your disk 
with ready-to-compile source code. 

IBM 9 PC Version: Supports Turtle Graphics, 
color, sound, full tree directories, window 
routines, input/output redirection, and 
much more. 



THE CRITICS' CHOICE: 

"Language deal of the century . . . Turbo Pascal: 
it introduces a new programming environment 
and runs like magic." 

—Jeff Duntemann, PC Magazine 

"Most Pascal compilers barely fit on a disk, but 
Turbo Pascal packs an editor, compiler, linker, 
and run-time library into just 39K bytes of 
random access memory." 

— Dave Garland, Popular Computing 

"What I think the computer industry is headed 
for: well-documented, standard, plenty of 
good features, and a reasonable price." 

—Jerry Poumelle, BYTE 



LOOK AT TURBO NOW! 



Ef More than 500,000 users worldwide. 

\5f Turbo Pascal is the de facto industry 
standard. 

S' Turbo Pascal wins PC MAGAZINE'S 
award for technical excellence. 



0^ Turbo Pascal named "Most 
Significant Product of the Year" by 
PC WEEK. 

S' Turbo Pascal 3.0— the fastest Pascal 
development environment on the 
planet, period. 



Suggested Retail Price: $99.95; CPIM*-8Q version without 8087 and BCD: $69.95 

Features for 16-bit Systems: 8087 math co-processor support for intensive calculations. 
Binary Coded Decimals (BCD): eliminates round-off error! A must for any serious business application. 

Minimum system configuration: 128K RAM minimum. Includes 8087 & BCD features for 16-bit MS-DOS 2.0 or later and 
CP/M-86 1.1 or later. CP/M-80 version 2.2 or later 48K RAM minimum (8087 and BCD features not available). 8087 
version requires 8087 or 80287 co-processor. 



BORLAND 

INTERNATIONAL 



Turbo Pascal is a registered trademark ol Borland International, Inc. CP/M is a registered trademark 
of Digital Research Inc. IBM is a registered trademark of International Business Machines Corp. MS- 
DOS is a registered trademark of Microsoft Corp. WordStar is a registered trademark of MicroPro 
International. 
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WRBO 



mm 



MCIMOSH 



The ultimate Pascal development environment 



Borland's new Turbo Pascal for the Mac is so incredibly fast that it can 
compile 1,420 lines of source code in the 7.1 seconds it took you to read this! 

And reading the rest of this takes about 5 minutes, which is plenty of time for Turbo Pascal for the Mac 
to compile at least 60,000 more lines of source code! 

Turbo Pascal for the Mac does both Windows and "Units" 

The separate compilation of routines offered by Turbo Pascal for the Mac creates modules called "Units," 
which can be linked to any Turbo Pascal program. This "modular pathway" gives you "pieces" which can 
then be integrated into larger programs. You get a more efficient use of memory and a reduction in the 
time it takes to develop large programs. 

Turbo Pascal for the Mac is so compatible with Lisa* that they should be living together 

Routines from Macintosh Programmer's Workshop Pascal and Inside Macintosh can be compiled and run 
with only the subtlest changes. Turbo Pascal for the Mac is also compatible with the Hierarchical File 
System of the Macintosh™ 



The 27 -second Guide to Turbo Pascal for the Mac 



• Compilation speed ol more than 12,000 lines 
per minute 

• "Unit" structure lets you create programs in 
modular form 

• Multiple editing windows— up to 8 at once 

• Compilation options include compiling to disk or 
memory, or compile and run 

• No need to switch between programs to compile 
or run a program 

• Streamlined development and debugging 

• Compatibility with Macintosh Programmer's 



Workshop Pascal (with minimal changes) 

• Compatibility with Hierarchical File System of 
your Mac 

• Ability to define default volume and folder names 
used in compiler directives 

• Search and change features in the editor speed up 
and simplify alteration of routines 

• Ability to use all available Macintosh memory 
without limit 

• "Units" included to call all the routines provided by 
Macintosh Toolbox 



Suggested Retail Price: $99.95 (not copy protected) 



Minimum system configuration: 

256K. One 400K drive. 




BORLAND 

INTERNATIONAL 



Turbo Pascal is a registered trademark and Turbo Pascal for Ihe Mac. SldeKIck for the Mac, and Reflex lor trie Mjc 
are trademarks ol Borland International, Inc. Macintosh is a trademark of Mcintosh Laboratories, Inc. and licenstd to 
Apple Computer with its express permission. Lisa is a registered trademark of Apple Computer, Inc. Inside 
Macintosh is a copyright ol Apple Computer. Inc. 
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TURBO MSCAI 

TURBOTUTOR 

VERSION 2.0 

Learn Pascal From The Folks Who Created 
The Turbo Pascal® Family 

Borland International proudly presents Turbo Tutor, the perfect complement 

to your Turbo Pascal compiler. Turbo Tutor is really for everyone— 

even if you've never programmed before. 

And if you're already proficient, Turbo Tutor can sharpen up the fine points. 
The manual and program disk focus on the whole spectrum of Turbo 
Pascal programming techniques. 

• For the Novice: It gives you a concise history of Pascal, tells you how to write a 
simple program, and defines the basic programming terms you need to know. 

• Programmer's Guide: The heart of Turbo Pascal. The manual covers the fine points 
of every aspect of Turbo Pascal programming: program structure, data types, control 
structures, procedures and functions, scalar types, arrays, strings, pointers, sets, files, 
and records. 

• Advanced Concepts: If you're an expert, you'll love the sections detailing such topics as 
linked lists, trees, and graphs. You'll also find sample program examples for PC-DOS and 
MS-DOS* 

10,000 lines of commented source code, demonstrations of 20 Turbo Pascal features, multiple- 
choice quizzes, an interactive on-line tutor, and more! 

Turbo Tutor may be the only reference work about Pascal and programming you'll ever need! 
Suggested Retail Price: $39.95 (not copy protected) 

Minimum system configuration: Turbo Pascal 3.0. PC-DOS (MS-DOS) 2.0 or later. 192K RAM minimum (CP/M-80 
version 2.2 or later: 64K RAM minimum). 



BORLAND 

mar^W ■m^^^B ^^w 7^ p^i ^ Turbo i^ y % t registered trademarks ol Borland International Inc. CP/M is a registered 
INTERNATIONAL trademark of Oigital Research Inc. MS-DOS is a registered trademark of Microsoft Corp. BOR 00648 



WRBO PASCAL 

DaiabaseToql. 

Is The Perfect Complement To Turbo Pascal* 

It contains a complete library of Pascal procedures that 

allows you to sort and search your data and build powerful database 

applications. It's another set of tools from Borland that will give 

even the beginning programmer the expert's edge. 

THE TOOLS YOU NEED! 

TURBO ACCESS Using fl+ trees: The best way to organize and search your data. Makes it 
possible to access records in a file using key words instead of numbers. Now available with 
complete source code on disk, ready to be included in your programs. 

TURBO SORT: The fastest way to sort data using the QUICKSORT algorithm— the method 
preferred by knowledgeable professionals. Includes source code. 

GINST (General Installation Program): Gets your programs up and running on other 
terminals. This feature alone will save hours of work and research. Adds tremendous value 
to all your programs. 

GET STARTED RIGHT AWAY— FREE DATABASE! 

Included on every Toolbox diskette is the source code to a working database which 
demonstrates the power and simplicity of our Turbo Access search system. Modify it to suit 
your individual needs or just compile it and run. 

THE CRITICS' CHOICE! 

"The tools include a B+ tree search and a sorting system. I've seen stuff like this, but not as 
well thought out, sell for hundreds of dollars." —Jerry Pournell, BYTE MAGAZINE 

"The Turbo Database Toolbox is solid enough and useful enough to come recommended." 

—Jeff Duntemann, PC TECH JOURNAL 

Suggested Retail Price: $69.95 (not copy protected) 

Minimum system configuration: 128K RAM and one disk drive (CP/M-80: 48K). 16-bit systems: Turbo 
Pascal 2.0 or greater for MS-DOS or PC-DOS 2.0 or greater. Turbo Pascal 2.1 or greater for CP/M-86 
1.0 or greater. 8-bit systems: Turbo Pascal 2.0 or greater for CP/M-80 2.2 or greater. 



Turbo Pascal and Turbo Database Toolbox are registered trademarks ot Borland International 
Inc. CP/M is a registered trademark of Digial Research, Inc. MS-DOS is a registered 
INTERNATIONAL trademark of Microsoft Corp. Don 0063B 



_ TURBO J»SGAL_ 

EditorToolbox 

It's All You Need To Build Your Own Text Editor 
Or Word Processor 



Build your own lightning- fast editor and incor- 
porate it into your Turbo Pascal 9 programs. 

Turbo Editor Toolbox gives you easy-to-install 
modules. Now you can integrate a fast and powerful 
editor into your own programs. You get the source 
code, the manual, and the know-how. 



Create your own word processor. We provide all 
the editing routines. You plug in the features you want. 
You could build a WordStar®-like editor with pull-down 
menus like Microsoft's® Word, and make it work as fast 
as WordPerfect® 



To demonstrate the tremendous power of Turbo Editor Toolbox, we give you the source code for 
two sample editors: 

Simple Editor A complete editor ready to include in your programs. With windows, block commands, and 

memory-mapped screen routines. 
MicroStar A full-blown text editor with a complete pull-down menu user interface, plus a lot more. 

Modify MicroStar's pull-down menu system and include it in your Turbo Pascal programs. 

The Turbo Editor Toolbox gives you all the 
standard features you would expect to find 
in any word processor: 

Wordwrap 

UN-delete last line 

Auto-indent 

Find and Find/Replace with options 

Set left and right margin 

Block mark, move, and copy 

Tab, insert and overstrike modes, 

centering, etc. MicroStar's pull-down menus. 




And Turbo Editor Toolbox has features that word processors selling for several hundred dollars can't begin to match. 
Just to name a few. 



(vf RAM-based editor. You can edit very large 
files and yet editing is lightning fast. 

[vf Memory-mapped screen routines. In- 
stant paging, scrolling, and text display. 

[vf Keyboard installation. Change control 
keys from WordStar-like commands to any that 
you prefer. 



[vf Multiple windows. See and edit up to eight 
documents— or up to eight parts of the same 
document— all at the same time. 

[vf Multitasking. Automatically save your 
text. Plug in a digital clock, an appointment 
alarm— see how it's done with MicroStar's 
"background" printing. 



Best of all, source code is included for everything in the Editor Toolbox. 
Suggested Retail Price: $69.95 (not copy protected) 

Minimum system configuration: IBM PC, XT, AT, 3270, PCjr, and true compatibles. PC-DOS (MS-DOS) 2.0 or greater. 192K RAM. You must b 
using Turbo Pascal 3.0 for IBM and compatibles. 



BORLAND 

INTERNATIONAL 



Turbo Pascal is a registered trademark and Turbo Editor Toolbox is a trademark ol Borland 
International, Inc. WordStar is a registered trademark of MicroPro International Corp. Word and 
MS-DOS are registered trademarks of Microsoft Corp. WordPerfect is a trademark of Satellite 
Software International. IBM, XT, AT, and PCjr are registered trademarks of International Business 
Machines Corp. bor 0067A 



Game Works 

Secrets And Strategies Of The Masters Are 
Revealed For The First Time 

Explore the world of state-of-the-art computer games with Turbo GameWorks. Using 

easy-to-understand examples, Turbo GameWorks teaches you techniques to quickly create 

your own computer games using Turbo Pascal. 9 Or, for instant excitement, play the three 

great computer games we've included on disk— compiled and ready to run. 

TURBO CHESS 

Test your chess-playing skills against your computer challenger. With Turbo GameWorks, you're on your way to 
becoming a master chess player. Explore the complete Turbo Pascal source code and discover the secrets of 
Turbo Chess. 

"What impressed me the most was the fact that with this program you can become a computer chess analyst. 
You can add new variations to the program at any time and make the program play stronger and stronger chess. 
There's no limit to the fun and enjoyment of playing Turbo GameWorks Chess, and most important of all, with this 
chess program there's no limit to how it can help you improve your game." 

—George Koltanowski, Dean of American Chess, former President of 
the United Chess Federation, and syndicated chess columnist. 

TURBO BRIDGE 

Now play the world's most popular card game— bridge. Play one-on-one with your computer or against up to 
three other opponents. With Turbo Pascal source code, you can even program your own bidding or scoring 
conventions. 

"There has never been a bridge program written which plays at the expert level, and the ambitious user will 
enjoy tackling that challenge, with the format already structured in the program. And for the inexperienced player, 
the bridge program provides an easy-to-follow format that allows the user to start right out playing. The user can 
'play bridge' against real competition without having to gather three other people." 

—Kit Woolsey, writer of several articles and books on bridge, 
and twice champion of the Blue Ribbon Pairs. 

TURBO GO-MOKU 

Prepare for battle when you challenge your computer to a game of Go-Moku— the exciting strategy game also 
known as Pente* In this battle of wits, you and the computer take turns placing X's and O's on a grid of 19X19 
squares until five pieces are lined up in a row. Vary the game if you like, using the source code available on your 
disk. 

Suggested Retail Price: $69.95 (not copy protected) 

Minimum system configuration: IBM PC, XT, AT, Portable, 3270, PCjr, and true compatibles. PC-DOS (MS-DOS) 2.0 or later. 192K 
RAM minimum. To edit and compile the Turbo Pascal source code, you must be using Turbo Pascal 3.0 (or IBM PCs and 
compatibles. 

DADB A &BB% Turb0 Pascal and Turb0 GameWorks are registered trademarks of Borland International, Inc. 
■P^^lCLflwvkV Pen,e is a registered trademark of Parker Brothers. IBM, XT, AT, and PCjr are registered 
INTERNA T I N A L trademarks of International Business Machines Corporation. MS-DOS is a registered trademark 
of Microsoft Corporation. 
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If you use an IBM® PC, you need 



U 



Lightning 



1/ you ever write a 
word, think a word, or 
say a word, you need 
Turbo Lightning 
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The Turbo Lightning Dictionary 



Turbo Lightning teams up 
with the Random House® 
Concise Dictionary to 
check your spelling as 
you type! 

Turbo Lightning, using the 
83,000-word Random House 
Dictionary, checks your spelling 
as you type. If you misspell a 
word, it alerts you with a beep. 
At the touch of a key, Turbo 
Lightning opens a window on 
top of your application pro- 
gram and suggests the correct 
spelling. Just press one key 
and the misspelled word is 
instantly replaced with the 
correct word. It's that easy! 

Turbo Lightning works 
hand-in-hand with the 
Random House Thesaurus 
to give you instant access 
to synonyms 

Turbo Lightning lets you choose 
just the right word from a list of 
alternates, so you don't say the 
same thing the same way every 
time. Once Turbo Lightning 
opens the Thesaurus window, 
you see a list of alternate 
words, organized by parts of 
speech. You just select the 
word you want, press ENTER 
and your new word will in- 
stantly replace the original 
word. Pure magic! 



Suggested Retail Price: $99.95 (not copyprotected) 



The Turbo Lightning Thesaurus 




Turbo Lightning's 
intelligence lets you teaci 
it new words. The more 
you use Turbo Lightning, 
the smarter it gets 

You can also teach your new 
Turbo Lightning your name, 
business associates' names, 
street names, addresses, 
correct capitalizations, and any 
specialized words you use 
frequently. Teach Turbo 
Lightning once, and it 
knows forever. 

Turbo Lightning 
is the engine that 
powers Borland's Turbo 
Lightning Library" 

Turbo Lightning brings 
electronic power to the Random 
House Dictionary and Random 
House Thesaurus. They're at 
your fingertips— even while 
you're running other programs. 
Turbo Lightning will also 
"drive" soon-to-be-released 
encyclopedias, extended 
thesauruses, specialized 
dictionaries, and many other 
popular reference works. 
You get a head start with this 
first volume in the Turbo 
Lightning Library. 

And because Turbo Lightning is 
a Borland product, you know 
you can rely on our quality, our 
60-day money-back guarantee, 
and our eminently fair prices. 



Minimum system configuration: IBM PC, XT, AT, PCjr, and true compatibles with 2 floppy disk drives. PC-DOS (MS-DOS) 2.0 or greater. 
256K RAM. Hard disk recommended. 



BORLAND 

INTERNATIONAL 



IBM. XT, AT, and PCjr are registered trademarks ol International Business Machines Corp. Turbo 
Lightning is a registered trademark and Turbo Lightning Library is a trademark of Borland 
International, Inc. Random House is a registered trademark ol Random House Inc. bor 0070A 



TURBO 



PRCXOG 

the natural language of Artificial Inteigence 

Turbo Prolog brings fifth-generation supercomputer 
power to your IBM' PCI 
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Turbo Prolog takes 
programming into a new, 
natural, and logical 
environment 

With Turbo Prolog, 

because of its natural, 
logical approach, both 
people new to programming 
and professional programmers 
can build powerful applica- 
tions such as expert systems, 
customized knowledge 
bases, natural language 
interfaces, and smart 
information management systems. 

Turbo Prolog is a declarative language 
which uses deductive reasoning to solve 
programming problems. 




Turbo Prolog's development system 
includes: 

□ A complete Prolog compiler that is a variation ot the 

Clocksin and Mellish Edinburgh standard Prolog. 

□ A full-screen interactive editor. 

□ Support for both graphic and text windows. 

□ All the tools that let you build your own 

expert systems and Al applications with 
unprecedented ease. 



Turbo Prolog provides 
a fully integrated pro- 
gramming environment 
like Borland's Turbo 
Pascal,® the de facto 
worldwide standard. 

You get the complete 
Turbo Prolog program- 
ming system 

You get the 200-page 
manual you're holding, 
! software that includes 
I the lightning-fast Turbo 
J Prolog six-pass 
compiler and interactive editor, and the 
free GeoBase natural query language 
database, which includes commented 
source code on disk, ready to compile. 
(GeoBase is a complete database 
designed and developed around U.S. 
geography. You can modify it or use 
it "as is.") 

Minimum system configuration: IBM PC, XT, AT, 
Portable, 3270, PCjr, and true compatibles. PC-DOS 
(MS-DOS) 2.0 or later. 384K RAM minimum. 



Suggested Retail Price $99.95 
(Not Copy Protected) 




INTERNATIONAL 



Turbo Prolog is a trademark and Turbo Pascal is a registered trademark ol 
Borland International, Inc. IBM AT, XT, and PCjr are registered trademarks ol 
International Business Machines Corp. MS-DOS is a registered 
trademark ol Microsoft Corp. 

BOROOICC 



Your Development Toolbox and Technical Reference Manual for Turbo Lightning® 



I G H T N I N G 
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Lightning Word Wizard includes complete, commented Turbo 

Pascal® source code and all the technical information you'll 

need to understand and work with Turbo Lightning's "engine." 

More than 20 fully documented Turbo Pascal procedures 

reveal powerful Turbo Lightning engine calls. Harness the full power 

of the complete and authoritative Random House® Concise 

Word List and Random House Thesaurus. 



Turbo Lightning's "Reference 
Manual" 

Developers can use the versatile on-line 
examples to harness Turbo Lightning's 
power to do rapid word searches. Lightning 
Word Wizard is the forerunner of the data- 
base access systems that will incorporate 
and engineer the Turbo Lightning Library'" 
of electronic reference works. 



The ultimate collection of word 
games and crossword solvers! 

The excitement, challenge, competition, 
and education of four games and three 
solver utilities— puzzles, scrambles, spell- 
searches, synonym-seekings, hidden words, 
crossword solutions, and more. You and 
your friends (up to four people total) can 
set the difficulty level and contest the high- 
speed smarts of Lightning Word Wizard! 



Turbo Lightning— Critics' Choice 

"Lightning's good enough to make programmers and users cheer, executives of other 
software companies weep." Jim Seymour, PC Week 

"The real future of Lightning clearly lies not with the spelling checker and thesaurus currently 
included, but with other uses of its powerful look-up engine." Ted Silveira, Profiles 



"This newest product from Borland has it all." 



Don Roy, Computing Now! 



Minimum system configuration: IBM PC, XT, AT, PCjr, Portable, and true compatibles. 256K RAM minimum. PC-DOS (MS-OOS) 2.0 
or greater. Turbo Lightning software required. Optional— Turbo Pascal 3.0 or greater to edit and compile Turbo Pascal source code. 



BORLAND 

INTERNATIONAL 



Suggested Retail Price: $69.95 
(not copy protected) 



Turbo Pascal and Turbo Lightning are registered trademarks and Lightning Word Wizard and Turbo Lightning Library are trademarks of Borland International, Inc. Random 
House is a registered trademark of Random House, Inc. IBM, XT, AT, and PCjr are registered trademarks of International Business Machines Corp. MS-DOS is a 
registered trademark of Microsoft Corp. BOR0087A 




THE ANALYST 

Reflex is the most amazing and easy-to-use database management 

system. And if you already use Lotus 1-2-3,® dBASE; or PFS: File® 

you need Reflex— because it's a totally new way to look at your data. 

It shows you patterns and interrelationships you didn't know were 

there, because they were hidden in data and numbers. 

It's also the greatest report generator for 1-2-3. 

REFLEX OPENS MULTIPLE WINDOWS WITH NEW VIEWS AND GRAPHIC INSIGHTS INTO YOUR DATA. 
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The FORM VIEW lets you build and examine your database. 



The LIST VIEW lets you put data in tabular list form 
just like a spreadsheet. 



The GRAPH VIEW gives you instant interactive 
graphic representations. 



The CROSSTAB VIEW 
gives you amazing "cross- 
relerenced" pictures ol the 
links and relationships hidden 
in your data. 
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The REPORT VIEW 

allows you to import 

and export to and from 

Reflex, 1-2-3, dBASE, 

PFS: File, and other 

applications, and prints 

out information in the 

formats you want. 



So Reflex shows you— Instant answers. Instant pictures. Instant analysis. Instant understanding. 

THE CRITICS' CHOICE: 



"The next generation of software has officially arrived." 

Peter Norton, PC WEEK 

"Reflex is one of the most powerful database programs on the 
market. Its multiple views, interactive windows and graphics, great 
report writer, pull-down menus, and cross tabulation make this one 
of the best programs we have seen in a long time . . . 

Suggested Retail Price $149.95 (not copyprotected) 

Minimum system configuration: IBM PC, XT, AT, and true compatibles. PC-DOS (MS-DOS) 2.0 or greater. 384K RAM minimum. IBM 
Color Graphics Adapter, Hercules Monochrome Graphics Card, or equivalent. Hard disk and mouse optional. Lotus 1-2-3, dBASE, or 
PFS: File optional. 



The program is easy to use and not intimidating to the novice . . . 
Reflex not only handles the usual database functions such as 
sorting and searching, but also "what-if" and statistical analysis . . . 
it can create interactive graphics with the graphics module. The 
separate report module is one of the best we've ever seen." 

Marc Stern, INFOWORLD 



BORLAND 

INTERNATIONAL 



Reflex is a registered trademark of Borland/ Analytica Inc. Lotus 1-2-3 is a registered trademark ol 
Lotus Development Corporation. dBASE is a registered trademark of Ashton-Tate. PFS: file is a 
registered trademark of Software Publishing Corporation. IBM, XT, AT, and IBM Color Graphics 
Adapter are registered trademarks of International Business Machines Corporation, Hercules Graphics 
Card is a trademark of Hercules Computer Technology. boh ooc6A 



Includes 22 "instant templates" covering a broad range of 

business applications (listed below). Also shows you how to 

customize databases, graphs, crosstabs, and reports. It's an invaluable 

analytical tool and an important addition to another one of 

our best sellers, Reflex: The Analyst 1.1. 

Fast-start tutorial examples: 

Learn Reflex* as you work with practical business applications. The Reflex Workshop Disk supplies 
databases and reports large enough to illustrate the power and variety of Reflex features. Instructions in each 
Reflex Workshop chapter take you through a step-by-step analysis of sample data. You then follow simple 
steps to adapt the files to your own needs. 

22 practical business applications: 

Workshop's 22 "instant templates" give you a wide range of analytical tools: 



Administration 

• Scheduling Appointments 

• Planning Conference Facilities 

• Managing a Project 

• Creating a Mailing System 

• Managing Employment Applications 

Sales and Marketing 

• Researching Store Check Inventory 

• Tracking Sales Leads 

• Summarizing Sales Trends 

• Analyzing Trends 

Production and Operations 

• Summarizing Repair Turnaround 



• Tracking Manufacturing Quality Assurance 

• Analyzing Product Costs 

Accounting and Financial Planning 

• Tracking Petty Cash 

• Entering Purchase Orders 

• Organizing Outgoing Purchase Orders 

• Analyzing Accounts Receivable 

• Maintaining Letters of Credit 

• Reporting Business Expenses 

• Managing Debits and Credits 

• Examining Leased Inventory Trends 

• Tracking Fixed Assets 

• Planning Commercial Real Estate Investment 



Whether you're a newcomer learning Reflex basics or an experienced "power user" looking for tips, Reflex 
Workshop will help you quickly become an expert database analyst. 



Minimum tyttem configuration: IBM PC, AT, and XT, and true compatibles. PC-DOS (MS-DOS) 2.0 or greater. 384K RAM minimum. Requires Rellex: The 
Analyst, and IBM Color Graphics Adapter, Hercules Monochrome Graphics Card or equivalent. 




BORLAND 

INTERNATIONAL 



Suggested Retail Price: $69.95 
(not copy protected) 



Reflex is a registered trademark and Reflex Workshop is a trademark of Borland/Analytica, Inc. IBM, AT, and XT are registered trademarks of International Business 
Machines Corp. Hercules is a trademark of Hercules Computer Technology. MS-DOS is a registered trademark of Microsoft Corp. 




FOR THE MAC 



The easy-to-use relational database that thinks like a spreadsheet. 

Reflex for the Mac lets you crunch numbers by entering formulas 

and link databases by drawing on-screen lines. 

5 free ready-to-use templates are included on the examples disk: 



A sample 1040 tax application 
with Schedule A, Schedule B, and 
Schedule D, each contained in a 
separate report document. 
A portfolio analysis application with 
linked databases of stock purchases, 
sales, and dividend payments. 




A checkbook application. 
A client billing application set up for 
a law office, but easily customized 
by any professional who bills time. 
A parts explosion application that 
breaks down an object into its 
component parts for cost analysis. 



Reflex for the Mac accomplishes all of these tasks without programming— using 
spreadsheet-like formulas. Some other Reflex for the Mac features are: 



Visual database design. 

"What you see is what you get" report 

and form layout with pictures. 

Automatic restructuring of database files when 

data types are changed, or fields 

are added and deleted. 

Display formats which include General, Decimal, 

Scientific, Dollars, Percent. 



Data types which include variable length text, 

number, integer, automatically incremented 

sequence number, date, time, and logical. 

Up to 255 fields per record. 

Up to 16 files simultaneously open. 

Up to 16 Mac fonts and styles are selectable 

for individual fields and labels. 
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After opening the "Overview" window, you 
draw link lines between databases directly 
onto your Macintosh screen. 



The link lines you draw establish both visual 
and electronic relationships between your 
databases. 



You can have multiple windows open 
simultaneously to view all members of a 
linked set— which are interactive and truly 
relational. 



Critic's Choice 

"... a powerful relational database . . . uses a visual approach to information management." InfoWorld 

". . . gives you a lot of freedom in report design; you can even import graphics." A+ Magazine 

". . . bridges the gap between the pretty programs and the power programs." Stewart Alsop, PC Letter 




BORLAND 

INTERNATIONAL 



Suggested Retail Price: 
$99.95* 

'Introductory Offer Through 1/15/87 



Mlalmam tyttim nqulnmntv 512K 

Reflex for the Mac is a trademark of Borland/Analytica, Inc. Macintosh is a trademark of Mcintosh Laboratory, Inc. and is used with express permission of its owner 

BOH 0149 




Whether you're running WordStar® Lotus® dBASE, 

or any other program, SideKick puts all these desktop 

accessories at your fingertips— Instantly! 

A full-screen WordStar-like Editor to jot 

down notes and edit files up to 25 pages 



A Monthly Calendar from 1901 through 
2099. 



long. 

A Phone Directory for names, addresses, 
and telephone numbers. Finding a name or a 
number is a snap. 

An Autodialer for all your phone calls. It will 
look up and dial telephone numbers for you. 
(A modem is required to use this function.) 
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Appointment Calendar to remind you 
of important meetings and appointments. 

A full-featured Calculator ideal for 
business use. It also performs decimal 
to hexadecimal to binary conversions. 

An ASCII Table for easy reference. 




All the SideKick windows stacked up over Lotus 1-2-3.' 
From bottom to top: SideKick's "Menu Window," ASCII 
Table, Notepad, Calculator, Appointment Calendar, Monthly 
Calendar, and Phone Dialer. 



Here's SideKick running over Lotus 1-2-3. In the 
SideKick Notepad you'll notice data that's been imported 
directly trom the Lotus screen. In the upper right you can 
see the Calculator. 



The Critics' Choice 



"In a simple, beautiful implementation of WordStar's 
block copy commands, SideKick can transport all 
or any part of the display screen (even an area 
overlaid by the notepad display) to the notepad." 

—Charles Petzold, PC MAGAZINE 

"SideKick deserves a place in every PC." 

— Gary Ray, PC WEEK 



"SideKick is by far the best we've seen. It is also 
the least expensive." 

— Ron Mansfield, ENTREPRENEUR 

"If you use a PC, get SideKick. You'll soon become 

dependent on it." , _ ., -„__ 

p —Jerry Pournelle, BYTE 



Suggested Retail Price: $84.95 (not copy protected) 

Minimum system configuration: IBM PC, XT, AT, PCjr and true compatibles. The IBM PCjr will only accept the SideKick not copy- 
protected versions. PC-DOS (MS-DOS) 2.0 or greater. 128K RAM. One disk drive. A Hayes-compatible modem, IBM PCjr internal 
modem, or AT&T Modem 4000 is required for the autodialer (unction. 



BORLAND 

INTERNATIONAL 



SideKick is a registered trademark of Borland International, Inc. dBASE is a registered trademark of 
Ashton-Tate. IBM, XT, AT, and PCjr are registered trademarks of International Business Machines Corp. 
AT&T is a registered trademark of American Telephone & Telegraph Company. Lotus and 1-2-3 are 
registered trademarks of Lotus Development Corp. WordStar is a registered trademark of MicroPro 
International Corp. Hayes is a trademark of Hayes Microcomputer Products, Inc. BOR 0060B 




for the Mac" 

SideKick for the Mac brings information 

management, desktop organization, and 

telecommunications to your Macintosh!" 

Instantly, while running any other program! 



A fullscreen editor/mini-word processor 

lets you jot down notes and create or edit 
files. Your files can also be used by your 
favorite word processing program, like 
MacWrite™ or Microsoft* Word. 

A complete telecommunications program 

sends or receives information from any 
on-line network or electronic bulletin 
board while using any of your favorite 
application programs (modem required). 

A full-featured financial and scientific 
calculator sends a paper-tape output to 
your screen or printer and comes 
complete with function keys for financial 
modeling purposes. 

A print spooler prints any "text only" file 
while you run other programs. 

A versatile calendar lets you view your 
appointments for a day, a week, or an 
entire month. You can easily print out your 
schedule for quick reference. 

A convenient "Things-to-Do" file reminds 
you of important tasks. 



A convenient alarm system alerts you to 
daily engagements. 

PhoneLinlC allows you to autodial any 
phone number, as well as access any long- 
distance carrier. 

A phone log keeps a complete record of 
all your telephone activities. It even 
computes the cost of every call. 

Area code look-up provides instant access 
to the state, region, and time zone for all 
area codes. 

An expense account file records your 
business and travel expenses. 

A credit card file keeps track of your 
credit card balances and credit limits. 

A report generator prints out your mailing 
list labels, phone directory, and weekly 
calendar in convenient sizes. 

A convenient analog clock with a sweeping 
second-hand can be displayed anywhere 
on your screen. 

On-line help is available for all of the 
powerful SideKick features. 



Best of all, everything runs concurrently 



Suggested Retail Price: $99.95 (not copy protected) 



Minimum system configuration: 128K RAM and one disk drive. Two disk drives are recommended if you wish to use other 
application programs. HFS compatible. 



BORLAND 

INTERNATIONAL 



SideKick is a registered trademark and PhoneLink is a trademark of Borland International, Inc. 
Macintosh is a trademark of Mcintosh Laboratory, Inc. licensed to Apple Computer, Inc. 
MacWrite is a trademark of Apple Computer, Inc. Microsoft Word is a registered trademark of 
Microsoft Corp. 
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The Organizer For The Computer Age! 

Traveling SideKick is BinderWare" both a binder you take with you when you travel 

and a software program— which includes a Report Generator— that generates and 

prints out all the information you'll need to take with you. 



Information like your phone list, your client list, 
your address book, your calendar, and your 
appointments. The appointment or calendar files 
you're already using in your SideKick 8 can auto- 
matically be used by your Traveling SideKick. You 
don't waste time and effort reentering information 
that's already there. 

One keystroke prints out a form like your address 
book. No need to change printer paper; 



you simply punch three holes, fold and clip 
the form into your Traveling SideKick binder, and 
you're on your way. Because Traveling SideKick is 
CAD (Computer-Age Designed), you don't fool 
around with low-tech tools like scissors, tape, or 
staples. And because Traveling SideKick is 
electronic, it works this year, next year, and all the 
"next years" after that. Old-fashioned daytime 
organizers are history in 365 days. 



What's inside Traveling SideKick 




TABLET OF EXTRA FORMS 

IN POCKET ON BACK FLAP, FOP USE IN ANY OF THE 

ORGANIZER SECTIONS 

ADDRESS BOOK SECTION 

PREPRINTED ADDRESS FORMS WITH TABBED 

DIVIDERS FOR EASY REFERENCE. 

MISCELLANEOUS SECTION 

TO STORE ALL EXTRA PREPRINTED FORMS AND 

COMMONLY-USED RECORDS. 



REFERENCE SECTION 

CONTAINS MAPS THAT SHOW AREA CODES AND 

TIME ZONES. TOLL-FREE NUMBERS FOR TRAVEL 

ACCOMODATIONS. METRIC CONVERSION CHARTS. 

FINANCE SECTION 

MULTI-USE LEDGER FORMS. RECEIPT LOG AND 

STORAGE ENVELOPE, CREDIT CARD INFORMATION. 

CALENDAR SECTION 

YEARLY, MONTHLY. WEEKLY. AND DAILY 

ENGAGEMENT CALENDARS SUPPLEMENT THOSE 

YOU PRINT OUT WTTH TRAVELING SIDEKICK 

PENDING SECTION 

A "TO BE CONTINUED - SECTION FOR CURRENT 

PROJECTS, MEETING NOTES, ETC. 

CALCULATOR 

IN ONE OF TWO BUSINESS-CARD-SIZE STORAGE 

POCKETS 

TRAVELING SIDEKICK SOFTWARE 
GENERATES, UPDATES, AND PRINTS YOUR 
ADDRESS AND CALENDAR FILES. 






'Suggested Retail Price: $69.95 



What the software program and its 
Report Generator do for you before 
you go— and when you get back 

Before you go: 

• Prints out your calendar, 
appointments, addresses, phone 
directory, and whatever other 
information you need from your 
data files 

When you return: 

• Lets you quickly and easily enter all 
the new names you obtained while 
you were away into your 
SideKick data files 

// can also: 

• Sort your address book by contact, 
zip code or company name 

• Print mailing labels 

• Print information selectively 

• Search files for existing addresses 
or calendar engagements 



Minimum system configuration: IBM PC, XT, AT, Portable, PCjr, 3270 and true compatibles. PC-DOS (MS-DOS) 2.0 or later. 
256K RAM mimimum. 

'Special introductory offer 
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SideKick and Traveling SideKick are registered trademarks and BinderWare is a trademark of 
Borland International, Inc. IBM, AT, XT, and PCjr are registered trademarks of International 
Business Machines Corp. MS-DOS is a registered trademark of Microsoft Corp. bor 0083 



SuoerKev 

Increased Productivity for Anyone 
Using IBM @ PCs or Compatibles 

SuperKey turns 1,000 keystrokes into 1! 

Yes, SuperKey can record lengthy keystroke sequences and play them back at the touch of 
a single key. Instantly. Like magic. 

Say, for example, you want to add a column of figures in 1-2-3.® Without SuperKey, you'd 
have to type 5 keystrokes just to get started: @ sum ( . With SuperKey, you can turn 
those 5 keystrokes into 1. 

SuperKey keeps your confidential files— CONFIDENTIAL! 

Time after time you've experienced it: anyone can walk up to your PC and read your 
confidential files (tax returns, business plans, customer lists, personal letters, etc.). 

With SuperKey you can encrypt any file, even while running another program. As long as 
you keep the password secret, only YOU can decode your file correctly. SuperKey also 
implements the U.S. government Data Encryption Standard (DES). 

SuperKey helps protect your capital investment 

SuperKey, at your convenience, will make your screen go blank after a predetermined time 
of screen/keyboard inactivity. You've paid hard-earned money for your PC. SuperKey will 
protect your monitor's precious phosphor and your investment. 

SuperKey protects your work from intruders while you take a break 

Now you can lock your keyboard at any time. Prevent anyone from changing hours of 
work. Type in your secret password and everything comes back to life— just as you left it. 

Suggested Retail Price: $69.95 (not copy protected) 

Minimum system configuration: IBM PC, XT, AT, PCjr, and true compatibles. PC-DOS (MS-DOS) 2.0 or greater. 128K RAM. 
One disk drive. 

BORLAND 
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SuperKey is a registered trademark of Borland International, Inc. IBM, XT, AT, 
and PCjr are registered trademarks of International Business Machines Corp. 1-2-3 is a 
registered trademark of Lotus Development Corp. MS-DOS is a registered trademark of 
Microsoft Corp. 
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GraphixToolbox 

A Library of Graphics Routines for Use with Turbo Pascal" 





High-resolution graphics for your IBM* PC, AT, 6 XT, 8 PCjr", true PC compatibles, and the Heath 
Zenith Z-100." Comes complete with graphics window management. 

Even if you're new to Turbo Pascal programming, the Turbo Pascal Graphix Toolbox will get you started right 
away. It's a collection of tools that will get you right into the fascinating world of high-resolution business 
graphics, including graphics window management. You get immediate, satisfying results. And we keep Royalty 
out of American business because you don't pay any— even if you distribute your own compiled programs that 
include all or part of the Turbo Pascal Graphix Toolbox procedures. 

What you get includes: 



Complete commented source code on disk. 

Tools for drawing simple graphics. 

Tools for drawing complex graphics, including 

curves with optional smoothing. 

Routines that let you store and restore graphic 

images to and from disk. 

Tools allowing you to send screen images to 

Epson®-compatible printers. 



Full graphics window management. 

Two different font styles for graphic labeling. 

Choice of line-drawing styles. 

Routines that will let you quickly plot functions 

and model experimental data. 

And much, much more . . . 



"While most people only talk about low-cost personal computer software, Borland has been doing 
something about it. And Borland provides good technical support as part of the price." 

John Markov & Paul Freiberger, syndicated columnists. 

If you ever plan to create Turbo Pascal programs that make use of business graphics or scientific 
graphics, you need the Turbo Pascal Graphix Toolbox. 

Minimum system configuration: IBM PC, XT, AT, PCjr, true compatibles and the Heath Zenith Z-100. Turbo Pascal 3.0 or later. 192K 
RAM minimum. Two disk drives and an IBM Color Graphics Adapter (CGA), IBM Enhanced Graphics Adapter (EGA), Hercules Graphics 
Card or compatible. 



INTERNATIONAL 



4585 SCOTTS VALLEY DRIVE 
SCOTTS VALLEY, CALIFORNIA 95066 



Turbo Pascal and Turbo Graphix Toolbox are registered trademarks of Borland International, 
Inc. IBM, XT, AT, and PCjr are registered trademarks of International Business Machines 
Corporation. Hercules Graphics Card is a trademark of Hercules Computer Technology. Heath 
Zenith Z-100 is a trademark of Zenith Data Systems. Epson is a registered trademark of 
Epson Corp. 
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